
APPENDIX 
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♦include <scdio.h> 
♦include <acdlib.h> 
♦include <atring.h> 
♦include "bglobal.h" 
♦include "vg^error.h" 
♦include "bparallel.h" 
♦include "stddevlp.h" 
♦ifdef _SEQUENT_ 
♦include <sys/tmpj:tl .h> 
♦endif 

EXEC SQL BEGIN DECLARE SECTION; 
EXEC SQL END DECLARE SECTION ; 
♦undef S0LCA_STORAGE_CLASS 
EXEC SQL INCLUDE SQLCA.H; 

int get_distribut ion (struct segment_atruct •*segraent_list, 
char *market, 
long number_of ^segments . 
char *dynamic_load, 
char *start_account, 
char •end_aceount) 

< 

EXEC SQL BEGIN DECLARE SECTION; 
char oacct_nr (11] ; 
VARCHAR ostart_account 1 10 J ; 
VARCKAR oend_account [10]; 
VARCHAR omarket [3] ; 
long orovmum-0 ; 
long ocnt "Ob- 
long ototal_cust_count«0; 
long ototal_account_count -0; 
long osegment_si2e-0; 
EXEC SQL END DECLARE SECTION; 

struct segment_struct *segment_s tart* (struct segment_struct *)NULL; 
struct segment_struct *segment_last« (struct aegment_atruct *)NULL; 
struct segments t rue t # segment_cur* (struct segment_struct *)NULL; 
struct segment_struct •segment_end- (struct aegment_struct *)NDLL; 
» 

BOOLEAN error - FALSE; /* error flag */ 

BOOLEAN first - TRUE; /* first account flag */ 

long tot_cust_chk«0;/* count custs in segments */ 

int index*0;/* count segments as produced */ 

int indexa-0;/* count accounts as produced •/ 

int indexa_adj*0;/* count aggr overflow for segment */ 

int segment_count»0;/ # count segments as produced */ 

long temp_acct_number«0; 

char segment_start_acct [11) ; 

char last_acct_nr [11) ; 

char segment_start_npa [4] ; 

char segment_start_str [8] ; 

long segment_start_num; 

long segmcnt_mod-0 ; 

long distributer»0; 

long dist_adjust«0; /* Compensate for remainder after last segment */ 
char line [80] ; 

FILE *fp;/* Static load file pointer */ 

char tmp_err_buf (80) ; /* used for formatted error statements */ 

vput ( &omarket , market ) ; 

vput ( iost art _ac count , start_account ) ; 

vput ( ioend_account , end_ac count ) ; 

memset ( segment_start_acct , NULL, sizeof ( segment _st art _acct) ) ; 
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memaet (laat_acct_nr.NULL,aizeof Uaat_acct_nr> ) ; 
if (dynamic_load[0] '1') 

{ 

/* These queries assume pending accounts are not present in DB */ 

EXEC SOL 

SELECT COUNT ( account _nr) 
INTO :ototal_account_count 
FROM BILL_INFO 
WHERE MARKET • : ©market 

AND (ACCOUNT_NR BETWEEN :oatart_account AND : oend_account ) ; 

EXEC SOL 

SELECT COUNT (account_nr> 
INTO :ototal_cust_count 
FROM CUST_INFO 
WHERE MARKET - romarket 
AND ({(aggr I- 'A* ) 

AND (ACCOUNT_NR BETWEEN : oatart_account AND : oend_ac count ) ) 
OR ( PARENT_ACCT BETWEEN : ostart_aceount AND : oend_account ) ) ; 

if ( (ototal_cust_count — 0) |j (ototal_account_count — 0)) 

{ 

error - TRUE; 

error_handler ( "get_distribution" , UNKNOWN, 

"Need to specify an account range " 
"encompassing actual accounts."); 

return ( error) ; 

} 

else if (number_of_segments > 0) 

{ • 

/* Must kludge this until able to bill aggs across batches */ 
if (ototal_account_count/number_of_segments >- 0) 

( 

osegment_size - ototal_cust_count/mimber_of_segments; 
/* mod is the overflow to be evenly distributed */ 
segment _mod - ototal_cust_count % number_of_segtnents ; 

/* protect for divide by zero •/ 
if (segment_mod 1" 0) 

distributer - number_of_segments/segment_mod; 
else distributer • 0; 

} 

else 

{ 

osegment_size • 0; 

) 

if (osegment_size 0) 

{ 

/* don't run parallel if one account per segment */ 
/* overhead is worse than sequential */ 
osegment_size - 1; 
number_of_segmenta - 1; 

error_handler ( * get_distribut ion ", UNKNOWN, 

"Warning: Segment size < 1 account per ... " 
"reset to one segment."); 
)/• If there are more segments than accounts */ 

printf ("start_account • %10.10s end_account - %10.10s ■ 
"num accts - %ld\n", 

start account, end account, ototal account count); 



printf ("cuata - %ld a eg aize « %ld nura a eg a - %ld * 
•mod - %ld diat - %ld\n". 

ototal_cust_count . oaegment_ai ze , number_of _segments . 
aegmentjnod, distributer ) ; 

) 

elae 

( 

error ■ TRUE; 

error_handler ( "get_diatribution" , UNKNOWN, 

"Number of aegmenta cannot be zero."); 

return (error) ; 

} 

EXEC SOL DECLARE aegmenta CURSOR FOR 
SELECT NVL ( P AR£NT_ ACCT , ACCOUNT_NR ) 
FROM CUST_INFO 
WHERE MARKET - :omarket 

AND ( NVL ( PARENT_ACCT , ACCOUNT_NR ) 

between :ostart_account AND :oend_account) 
ORDER BY NVL ( PARENT_ACCT , ACCOUNT_NR > ASC ; 

EXEC SQL OPEN aegmenta; 

if (sqlca.sqlcode I- N0T_SQL_ERROR) 
{ 

error_handler ( •gee_discribucion" , tsnoiOHN , aqlca . aqlerrm . sqlernnc) ,- 

} 

while! (aqlca.aqlcode— N0T_SQL_ERROR) kk (terror)) 

( 

/* distribute extra accounts if more left in overflow (segment mod) and 
distributer indicates some segments get an extra account. */ 

if ( (distributer 1-0) kk (segmentjnod > 0) kk 
( (aegment_count % distributer) —0)) 

{ . 
/* add an extra account to segment size */ 
dist_adjust • 1; 

/* adjust so when extra accounts are depleted, no more extra segment 
space will be allocated •/ 

segment_mod - - ; 

} 

else dist_adjust - 0; 

/* Fetch another segment •/ 

while ( (sqlca.sqlcode NOT_SQL_ERROR) kk 

(index < (osegraent_size ♦ dist_ad just ) ) kk 

(l error)) 

{ 

EXEC SQL FETCH segments INTO :oacct_nr; 
if ((sqlca.sqlcode 1- NOT_SQL_ERROR) kk 
( sqlca . sqlcode I • SQL_NOT_FOUND) ) 

{ 

segment_start - (struct segment_struct *)NULL; 
errorjiandler ( "get_distribution" , UNKNOWN, 
sqlca. sqlerrm.sqlerrmc) ; 

error - TRUE; 
}/* error */ 

else if (sqlca.sqlcode 1- SQL_NOT_FOUND) 
{ 

/* Fetch at end throws off customer count */ 
index* ♦ ; 



if (first) 

{ 

firat - FALSE; 

memcpy ( aegment_start_acct , oacct_nr , 10 ) ; 

} 

/* Just logging a count of accounts vs customers (actual)*/ 
if (memcmp (oacct_nr , las£_acct_nr, sizeof (oacct_nr) ) 1-0) 

{ 

indexa**; 

memcpy (las t_acct_nr, oacct_nr, sizeof (oacctjir) J ; 

} 

if((indexa — 0) fcfc 

(memcmp (oacct_nr, last_acct_nr, sizeof (oacct_nr) ) ) 0) 

{ 

indexa_ad j ++ ; 

} 

}/* no error fetching next customer */ 
)/• While not segment limit */ 

/* allocate a list element (0th counts here) */ 
if ( (aegment_count < number_of_segmenta> kk 
((sqlca.sqlcode » SQL_NOT_FOUND) || 
(sqlca.sqlcode — N0T_SQL_ERROR) ) ) 

{ 

if ( ( segment _cur - (struct segment_struct *) 

malloc ( (unsigned int) sizeof (struct segment_struct) ) ) 
I* (struct segment_atruct *)NULL) 

segment_count+* ; 

/• Load the segment element */ 

sprintf (segment_cur->rpt_f ile, "%3 . 3s_%d" , 

omarket . arr , segment_count ) ; 
if (osegment_size > 1) 

memcpy ( segment _cur- >begin_acct , 

aegment_start_acct, sizeof (oacct_nr) ) ; 

else 

memcpy (aegment_cur- >begin_acct , oacct_nr , 
sizeof (oacct_nr J ) ; 
segment_cur->begin_acct [10] • '\0'; 

memcpy ( segment _cur- >end_acct , oacct_nr , sizeof ( oacct_nr ) ) ; 

segment_cur»>end_acct [10] • '\0'; 

sprintf (segment_cur->stdout_file, "%3.3s_%d", 
omarket . arr , segment _count ) ; 

segment_cur- > segment ^number - segment _count ; 

segment^cur- >process_id - 0; 

segment_cur->processor - 0; 

segraent_cur-> running ■ 0 ; 

segment_cur->row_num • 0; 
/* adjust customer count to reflect aggregates that went to previous segment */ 

segment_cur->csize • index - indexa_adj ; 
/• account count in this segment */ 

segment_cur->asize - indexa; 

segment_cur->count - 0 ; 

segment_cur->complete - 0 ; 

segment_cur->link - (struct segment_struct *)NULL; 

/* if this is the first element then mark it as the head of the list */ 
if (segment_start (struct segment_struct *)NULL) 

< 

segment_start - segment^end - aegraent_cur ; 
} /* if start of list •/ 
else 

{ 
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/• adjust cus corner count in previous segment to reflect its aggr overflows •/ 
segment_end->csixe indexa_adj; 
tot_eust_chk segment_end->csize; 
segment_end->link • •egment_cur; 
segment_end - segment_cur; 
} /* else not start of list */ 

/* Increment end account to use as start of- next segment */ 

sprint f ( segments tart_npa, "%3 ,3s - ,segment_end->end_acct) ; 
sprint f (segment_staTt_str, "%7.7a" . 

fcaegraent_end-.»end_acct [3)1; 
segment_start_num - atol (aegment_start_atr) ; 
segment_start_nura*+ ; 

sprintf (segment_start_acct, "%3 ,3s%071d" , 
8egment_start_npa , 
segments tart_num> ; 

) /♦ if allocate list element */ 
else 

{ 

segment_start - (struct segment_struct *)NULL; 
error_handler ( "get_distribution " , UNKNOWN , 
■memory allocation" ) ; 

error - TRUE; 
} /* else malloc error */ 
}/* If fetch */ 

else if ( (segment_count >- number_of_segments) *& 
( sqlca . sqlcode I - SQL_NOT_FOUND ) ) 

{ 

if (memctnp <oacct_nr, last_acct_nr, sizeof (oacct_nr) ) 1-0) 

{ 

sprintf ( tmp_err_buf , 

"Out of segments and account %10.10s left.", 
oacct_nr) ; 

segment _s tart - (struct aegraent_struct *)NULL; 
error_handler ( "get_distritoution" , UNKNOWN, tmp_err_buf ) ; 
error - TRUE; 

} 

else 

{ 

segment_end->csize*+ ; 

while ((sqlca. sqlcode I- S0L_NOT_FOUND) ) 

{ 

if (memcmp(oacct_nr, last_acct_nr, sizeof (oacct_nr) ) l- 0) 

{ 

sprintf (tmp_err_buf , 

"Out of segments and account " 
■%10.10s left. " ,oacct_nr) ; 

segment_start - (struct segment_struct *)NULL; 

error_handler ( "get_distribution" , UNKNOWN, 
tmp_err_buf ) ; 

error - TRUE; 

> 

segmenc_end->caize<"*; 

EXEC SQL FETCH segments INTO :oacct_nr; 

) 

) 

}/* error if out of segments and more accounts left */ 

/• reset index for next goround */ 
index * 0; 
indexa • 0; 
indexa_adj - 0; 

}/* While more segments */ 



-6- 



memcpy ( aegraent_end- >end_acct , end_account ,10); 

if (aqlca.aqlcode I- S0L_N0T_FOUND) 

{ 

segment_start - (struct aegment_atruct * J NULL; 

error Jiandler ( "get_diatribution» , UNKNOWN, aqlca . aqlerrtn . aqlemnc ) ; 
error ■ TRUE; 
)/• Report error */ 

EXEC SOL CLOSE aegmenta; 

/* get laat aegmenta' cuatomer allotment */ 
tot cuat_chk aegment_end->csize; 

printf ("tld TOTAL IN SEOIENTS - %ld in db « %ld\n", 

segment_count , tot_cuat_chk , ototal_cuat_count ) ; 

) 

else 

{ 

ifUfp - fopenCLOAr^BALANCE". "r") ) « NULL) 

< 

aegment_start - (struct aegment_atruct * I NULL; 
error_handler ( - get_diatribution - , UNKNOWN, 

•Can't open LOAD.BALANCE file for " 

•segmenting inf ormatiion") ; 

error - TRUE; 

} 

else for (segment_count ■ 1; 

segment_count <• nuraber_of _segmenta ; 
segment_count ♦ ♦ > 

{ 

/* Load X number of segments (error if proper number not found) */ 
if (f gets (line, 80, fp) 1- (char J NULL I 

{ 

if ( (segment_cur - (struct segment_struct *) 

malloc ( (unsigned int) sizeof (struct segment_s tract) ) ) 
1- (struct segment_8truct *)NULL) 

{ 

printf ( " STATIC_LOAD MALLOC\n»i ; 

/* Load the segment element */ 

sprint f (segment_cur->rpt_f ile, "%s_%d" , market, 

segment _count ) ; 
memcpy ( segment_cur - >begin_acct , line ,10); 
segment_cur->begin_acct [10] - '\0'; 
memcpy (segment_cur- >end_acct , fcline {11] , 10) ; 
segment_cur->end_acct (10) • '\0'; 
sprintf (segment_cur->stdout_file, "%s_%d - , 

market, segraent_count) ; 
segment _cur->segment_number - segment_count ; 
segment_cur->process_id - 0; 
segment_cur->processor - 0; 
a egment_cur-> running • 0 ; 
aegment_ cur->row__ num * 0; 
segment_cur->csize - 0; 
9egment_cur->asize - 0; 
segment_cur-> count - 0 ; 
segment _cur->complete - 0; 

segment _cur-> link - (struct segment_struct MNULL; 

/* if this is the first element then mark it as the head of the list */ 
if (segment_start (struct segment_struct *)NULL) 

{ 

segment_start - segment_end - segment_cur; 
} /* if start of list */ 
else 
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( 

Begment_end->linx - aegment_cur; 
aegment_end - eegraent_cur; 
} /• else not start of list •/ 



} /* if allocate liat element */ 
elae 

{ 

aegment _start - (atruct aegment_atruct ")NULL; 
error_handler ( "get^distribution" , UNKNOWN, 
"memory allocation"); 

error • TRUE; 
) /• elae raalloc error */ 
}/* If get aegment line */ 
elae 

{ 

segment_start • (struct aegment_atruct *)NULL; 
sprintf (line , "Can't get aegment range entry %d of %d", 

segment jcount , nuraber_of ^segments ) ; 
errorjiandler ( "get_diatribution" , UNKNOWN, line) ; 
error - TRUE; 

) 

}/• for x aegment a •/ 

} 

/• Place starting address of aegment list in caller's pointer */ 
*segment_list - segment_start ; 



return (error) ; 
}/* End of get distribution •/ 
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•include "atddevlp.h" 
•include "bill_global.h" 
•include "vg_error.h" 
•include "parjnanjroto.h" 

EXEC SOL BEGIN DECLARE SECTION; 
EXEC SQL END DECLARE SECTION; 
EXEC SOL INCLUDE SQLCA.H; 

BOOLEAN get_executable (char *path, char •name) 

{ 

EXEC SQL BEGIN DECLARE SECTION; 

VARCKAR opath[50] ; 

VARCHAR oname[20] ; 

EXEC SQL END DECLARE SECTION; 

BOOLEAN error - FALSE; 

EXEC SQL 

SELECT EXECUTABLE_PATH, EXECUTABLE JKAME 
INTO :opath, :oname 
FROM BILLING_PARAMETERS 
WHERE ROHNUH - 1; 

if (sqlca.sqlcode l- NOT_SQL_ERROR) 

{ 

error - TRUE; 

error_handler ( "get_exeeutable . pc" , ORACLES ELECT, 
"selecting executable info"); 

) 

vget (path, fcopath) ; 
vget (name, ioname) ; 



return error; 



•include <atdlib.h> 
•include <«tdio.h> 
•include <atring.h> 
•include <oafcn.h> 
•include <fcntl.h> 
•include <sgtty.h> 
tinclude <ayi/re80urce.h> 
•include <sya/8ignal.h> 
•include <sys/atat.h> 
•ifdef _SEQUENT_ 
•include <sys/tmp_ctl . h> 
•endif 

•include <ays/types .h> 
•include <oys/ipc.h> 
•include <sys/shm.h> 
•include <ays/wait.h> 
•include <sy8/vmay8tm.h> 
•include <ays/type8.h> 
•include <unistd.h> 
•include <ermo.h> 
•include <signal.h» 
•include "time.h" 
•include ■bill_global.h* 
•undef BOOLEAN 
•include "stddevlp.h" 
•include ■vg_error.h > 
•include "bparallel .h" 

/• TEMP DEBUG */ 
char *a; 
char *b; 



struct mark_struct 

{ 

char remark (61] ; 
long seconds ; 
long useconds ; 

}; 

•ifdef _SEQUENT_ 
extern "C" { 

char •shmat(int, void*, int); 

int shmget (key_t. int, int); 

} * 

union { 

struct vm_tune *vmtune; 

unsigned long *procrss; 

bool_t onoff; 
}argp ; 
•endif 

struct par_perf_struct par^per; 
struct seg_perf_struct seg_per; 

void shmark_time(int reraark_nr , mark_struct *time_array, int mark_nuraber) ; 
void fork_segment (segment_struct *aeginent, 

char arg_list [ARG_COONT1 [MAX_ARG_SIZE] , 

char *shmaddresa,char * executable ) ; 

int . main tint argc.char »*argv) 

{ 

struct segment_struct •segment_list_start« (struct segraent_struct * ) NULL 
struct segtnent_struct "segmen^list* (struct segment_struct *)NULL; 
int error-0 , f inished-0 ; 

int af f inity_err_ad j «0 , cpu_num-0 , set_p«0 , number_of_cpus-0 ; 
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int proceaa_a tatue-O, account ed_f or- 0, found- 0,wait_count -On- 
iric previous_proceaaor-0 , index- 0 ; 

char market [4 } ; 

long number_of_aegmenta-0; 

long number^of^proceaaea-O; 

char arg_liat [ARG_C0UNT] [MAX_ARG_SIZE] ; 

char tmparglO] ; 

char oracle_login[40] ; 

char bill_date(ll] ; 

char commit_flag[2] ; 

char overide_flag[2] ; 

char dynamic_load(2] ; 

BOOLEAN reporta_flag; 

char tmp_err_atrl80] ; 
#i£de£ _SEQUENT_ 

int proceaa_group-0; 
«elae 

pid_t proceasjgroup-0; 
ttendif 

char tmpindex_err_str I BO] ; 
char start_account [11] ; 
char end_account [11] ; 
char billing_path(Sl] ; 
char billing_name [21] ; 
char full_billing_name£7l] ; 

/* Shared memory vara */ 

BOOLEAN ahared-0; 

key_t ahbil l_key-SHARED_KEM_KEY ; 

int shbill_id; 

int shmflg-1; 

char •shmaddress ; 

char •ahmaddreaa_s; 

struct mark_struct mark_time_arr [80] ; 

pid_t current_pid-Q; 

sprint f ( mark_t ime_arr [ 0 ] . remark , "OVERALL ■ ) ; 
mark_time_arr [0] .useconds - 0L; 
mark_time_arr[0) .seconds - 0L; 

sprintf (mark_time_arr(l] .remark, -LOAD BALANCE •) ; 
market ime_arr [1] .useconds - 0L; 
mark_time_arr [1] .seconds - 0L; 

sprintf (mark_time_arr [2] .remark, "REPORT GENERATION ") ,* 
mark_time_arr [2] .useconds - 0L; 
mark_time_arr[2] .seconds - 0L; 

sprintf {mark_time_arr [3] .remark, "THREAD FILE MERGE "); 
mark_t ime_arr [ 3 ] . useconds - 0L ; 
mark_time_arr [3] .seconds - OL; 

setbuf (stdout,NULL) ; 

/* Set process group so parallel manager (this program) is part of it. */ 
if ( (process_group - setpgrpO) — -1) 

{ 

sprintf (tmp_err_str, 

"FATL: Unable to obtain process group id for this bill run") ; 
error_handler ( "par_bill . pc " , UNKNOWN, tmpindex_err_str ) ; 

) ' ' ' 

/* Validate command line arguments */ 
if(argc !- 11) 

{ 
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f printf latderx, 

"Usage: par_bill market bill_date oracle_login " 

■conreit^f lag (0, 1) overide_f lag (0, 1) • 

•dynaraic_load_flag(0,l) reporta_flag ( 0 , 1 ) ■ 

• ( segment •) start end\n a ) ; 
_exit(0) ; 

) 

else 

( 

shmark_t ime ( 0 , mark_time_arr , 1 ) r 
aprintf (market, "%s",argv[l) ) ; 
aprintf (bill_date, ■%s-,argv(2] ) ; 
aprintf (oracle_login, •%s",argv[3) ) ; 
aprintf (comwit_flag, "%sVargv(4] ) ; 
aprintf (overide_f lag, •%a" # argvt5j ) ; 
sprint f <dynaraic_load, "%s" f argv[6l ) ; 
reports_flag - atoi targv(7] ) ; 

number_of_cpus - get_cpus ( ) ; 
printf ("Number of cpua - %d\n" ,nuraber_of_cpua) ; 

/* Allow uaer to assign segment list or set via available cpus */ 
if Marge >- 9) && Urge I- 10) J 

{ 

number_of_aegments - atol (argv(8j ) ; 

} 

else 

< 

number_of_aegments - ( number_of _cpua - 1) ; 

} 

if(argc -- 11) 
{ 

printf ("ARCS start • %10.10s end * %10 . 10s\n" , argv(9l ,argv (10] ) ; 
sprintf (atart_ac:ount, "%s",argv(9) ) ; 
sprintf (end_account, "%s" , argv [10] ) ; 

} 

else 

{ 

sprintf (tmp_err_str, 

•This batch will bill every account for market %s", market) 
error_handler ( "par_bill . pc" , UNKNOWN , tmp_err_atr) ; 
strcpy (start_account, "0000000000") ; 
strcpy(end_account, "9999999999") ; 

} 



number_of_proceases - number_of _segraents ; 
}/* load command line arguments. */ 

if ( (oracleLogin(oracle_login,NULL) ) l- -1) 

( 

/• Allocate snared memory block for manager and threads */ 

/•if not existing */ 

while (( (shared) fcfc (terror)) 

{ 
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/* Allocate shared memory sufficient for parallel bill run •/ 
ehbill_id - •hmgettahbilljcey, 

tint) (aizeof (struct par_perf_atruct) ♦ 

( (60) * (aizeof (atruct eeg_perf_atruct) ) ) ) , 

(0666 | IPC_CR£AT) ) ; 

if (ahbill_id -1) 

{ 

error • TRUE; 

aprintf (tmp_err_atr, * 

"Shared memory allocation for %d: attempt failed.", 

ahbilljcey) ; 

error_handler ( "par_bill .pc" . UNKNOWN, trap_err_atr) ; 

exit(0) ; 
}/* Get new key if in uae •/ 
else 

{ 

shared « 1; 

#ifdef _SEQUENT_ 

ahmaddreas ■ ahmat (ehbill_id, 0, 0) ; 

#else 

ahmaddreas - (char •) shmat (shbill_id, 0, 0) ; 

#endif 

if ( (int) shmaddr ess -1) 

{ 

error - TRUE; 
aprintf (tmp_err_atr, 

■shmat 0 had error attaching %d to data segment.", 

shbill_id) ; 

error_handler ( "par Jbill . pc" , UNKNOWN , tmp_err_str) ; 

exit(0); 

) 

elae 

i 

p a r_per. segments ■ number_of _aegments ; 
par_per . status - 1; 
par_per . load_bal_time ■ 0; 
par_j>er. rpt_build_time ■ 0 ; 
par_per . rpt_merge_time - 0; 

memcpy (shmaddress , fcparjer , sizeof (struct par_perf _atruct ) ) ; 

} 

}/* allocate shared memory ok */ 
}/* Allocate shared memory for inter proceas communication */ 

if (error • get_executable (billing_path,billing_name) ) 

{ 

error_handler ( "par_bill . c ■ , UNKNOWN, 

"Unable to find billing executable name") ; 

exit(0); 

} 

else 

.{ 

aprintf (fulljbilling_name ( ■%a/%a",billing_path,billing_name) 

} 

pr int f ( "market - %3.3s nos - %ld nop - %ld error before distribution - %d\n", 
market , number_of ^segments , number_of ^processes , error) ; 

printf ("start - %10.10s end - %10.10s\n", 
s t art _ac count, end_account) ; 

seg_per.seg_bills - 0; 
seg_per . seg_accts ■ 0; 
seg_per .segment^ number - 0; 
seg__per.proceas_id - 0; 
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•eg_per . processor - 0; 
aeg_per . running - 0; 
seg_per. complete - 0; 
seg_per.slow_time • 0; 
seg_per . £ aat_time - 0; 
aeg_per . laat_acct_time - 0; 
aeg_per . laat_cuat_time • 0; 
aeg_per.elapaed_tirae - 0 ; 
Beg_per.total_time - 0; 
seg_per.bill_count • 0; 
aegjper . acct_count ■ 0; 

metncpy(seg_per.last_account, m XXXXXXXXXX 9 ,10) ; 
memcpy(seg_per.laat_cust, *XXXXXXXXXXM0) ; 

for (index - 1; index <• number_of ^segments ; index* ♦) 

{ 

8hraaddreaa_a - (ahmaddreaa ♦ (aizeof (struct par _perf_struct ) ♦ 

((index - 1) • 

aizeof (struct seg_perf_8truct ) } ) ) 
metncpy (shmaddress_a , &seg_per , aizeof (atruct aeg_perf _struct) } ; 

}/* Initialize shared memory for each threagment. */ 

/* Get load distribution (proceaaing aegments) */ 
ahmark_time ( 1 , mark_time_arr , 1 ) ; 
error - get_distribution(fcaegment_list, 
market , 

number_of ^segments , 

dynamic_load, 

start_account , 

end_account ) ; 
shmark_time ( 1 , mark_time_arr , 2 ) ; 
par_per. status - 2; 

memcpy (shmaddress, *par_per, si zeof (struct par_perf_struct) > ; 

segment_list_start - segment_liat ; 
printf ("error after distribution - %d\n" , error) ; 

/•Don't need database anymore. */ 
oracle Logout ( } ; 



while (segment_list l« (struct segment_struct *)NULL) 

{ 

printf C%8 Vmarket); 

printf ("*s ■,segment_liat->rpt_file) ; 

pr intf ( ■ %s oracle_login) ; 

printf ("%s commit_flag) ; 

printf ( "%s overide_f lag) ; 

printf ( " *s " , dynamic_load) ; 

printf ("%s ",biU_date> ; 

printf ( " %s ■ , segment_list- >begin_acct ) ; 

printf ("%s ",segment_list->end_acct> ; 

printf ( "%s " , segment_list->stdout_file) ; 

printf ( " %d ■ , segraent_liat - >eegraent_number ) ; 

printf ("%d segment _1 is t->proceaa^id) ; 

printf ( "*d ■ , segment_list->processor) ; 

printf ( "%d " , segment_liat->running) ; 

printf ("%d ■ , segment_list->complete) ; 

printf ("%ld ",segment_list->csize) ; 

printf ("%ld\n" ,segment_liat->asize) ; 

seg_per.seg_bills - segment_list->csize; 
aeg_per . seg_accts - segment_list->asize; 
shmaddreas_s - 

(shmaddress ♦ (sizeof (struct par_perf _struct ) 
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{ ( segment _1 is t - >«egment_number - 1) • 
aizeof (struct seg_perf _struct) ) ) ) ; 
memcpy (ahmaddreas_s , t«eg_per . aizeof (struct seg_perf_struct> ) ; 

segmental ist - segment_list->link,* 

}/* traverse •/ 



segment_list - segment_list_start ; 

/* Fork X segment a of the bill run and maintain that number 
* until entire segment list is completed. 
•/ 

/• Set up non segment- specific argument list execution */ 
sprintf (arg_list (0] , Us" ,billing_name) ; 
sprintf <arg_list tl] , •%«", market) ; 
sprintf (arg_list [3 J , "%s" , oracle_login) ; 
sprintf (arg_list [4] , -%s" ,bill_date) ; 
sprintf (arg_list [5] . "%s",commit_flag) ; 
sprintf (arg_list [6] , ■%s«,overide_flag) ; 
if (number_of_segmenta 1) 
sprintf (arg.liat IV , «S-J ; 

else 

sprintf (arg_list (7] , -P-) ; 
sprintf (arg.list 112] ,"%•","•) ; 

for (index - 1; index <- number_of_proceaae* ; index* ♦) 

{ 

/* create child process */ 

f ork_segment I segment _lia t , arg_list , shmaddress , 
full_billing_name) ; 

/* if successful fork, handle next segment in list */ 
if (segment_list !- (segment_struct *)NUT*L) 

{ 

segment list - segment_list->link; 

) 

else if (index l • nuaber_of_processes> 

( 

. sprintf (tmp_err_str, 

"WARN: Exhausted segment list at %d before " 
"reaching last (%dth) segment.", 
index ,number_of processes) ; 
error_handler ( "par_bill . pc" , UNKNOWN, tmp_err_str) ; 
}/• Make sure finished when list is exhausted. */ 

printf ("FORK\n">; 

}/* end for x segments •/ 

segment_list - segment_list_start ; 

while (segment_l is t 1- (struct segment_struct *}NULL) 

{ 

/* Put process ID into snared memory for this segmnent */ 
shmaddress_s • (shmaddress ♦ (sizeof (struct par_perf_struct) ♦ 

((index - 1) * 

sizeof (struct seg_perf_struct) ) ) ) 
memcpy ( 4seg_per , shmaddress_s , sizeof (struct seg_perf ^struct ) ) ; 
seg_per.process_id - segment_list->process_id; 
printf ("SHARED MEM PROCESS ID %d #%d\n" , seg_per. processed, 

seg_per . segment_number ) ; 
memcpy (shmaddress_s, fcseg_per, (sizeof (struct seg_perf _struct ) ) ) ; 
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segment_list - eegment_list->link; 
}/* traverse */ 

while (I finished) 

{ 

/• Monitor pids and fork aa needed until segmental iat exhausted */ 
current_pid - waitpid { 0 , fcproceas_statu* , 0 ) ; 
if ( (cuxrent_pid I- 0) kk <currentj>id 1- -1)) 
< 

printf ("good proceas_status • %d\n" ,process_status) ; 

/* Pind segment and processor number of this process */ 

/* for reporting. •/ 

aegment_list • segmental is t_start; 

found- 0; 

index- 0; 

while ( (segmental iat 1- (struct segments true t *)NULL) kk 
(t found) ) 

{ 

if (segment_list->process_id current_pid) 

( 

index * segment_l is t->segment_number; 
previousjtrocessor • 8egment_list->processox; 
found- 1; 

} 

else segment_list - segment_list->link; 
}/* while looking for segment that matches this pid •/ 

if (WIFEXITED(process_status) I- 0) 

{ 

printf < "DETECTED NORMALNn* ) ; 

if (WEXITSTATUS(process_statua) -- 0) 

{ 

printf ("DETECTED NO ERR0R\n") ; 
If exit was ok, then fork another segment while more is left, accounting 
for segment just completed in the segment list. 

/ 

segment_list - segmental is t_s tart ; 

accounted_for - 0; 

while (( lac count ed_f or) kk 

(segraent_list I • (segment_struct w )»U£ju)) 

{ 

/* Mark segment as completed */ 

if (current_pid -- segment_list->process_id) 

{ 

segmental ist->complete - accounted_for - 1; 
segment_list->running ■ 0; 

else segment_li8t « segment_list->link; 
} /* Account for segment just completed */ 

if ( l account ed_f or) 

{ . . 
sprint f (tmp_err_str, 

•WARN: Process %d running segment ? " 
x "is unaccounted for.", 

current_pid) ; 
error_handler ( "par_bill . pc" , UNKNOWN, tmp_err_str ) ; 

) 

/* Find next segment to be executed */ 
found- 0 ; 

segment_list - segmental is t_s tart; 
while ( (segment_liat I- 

(struct segment_struct *)NULL) kk 
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(t found) ) 

{ 

if ( (segment_list->running « 0) &fc 
(eegment_liet->complete •* 0) ) 

( 

/* Fork another aegment to replace completed one. •/ 
f ork_aegraent (aegment_liat , arg_liat , ahmaddreaa , 
" full_billing_narae) ; 

* eprintfttmpargl, "pid created: %d", 
8egraent_li8t->proceaa_id> ; 
printf ( "trapargl - %a\n" , tmpargl ) ; 
found • 1; 
}/* Pork a new aegment */ 
elae aegment_liat • aegment_liat->link; 
}/* While looking for next aegment to execute •/ 

if (1 found) 

{ 

finished - 1; 
} /* All segments are or were running. */ 
/* Run manager is finished. */ 
}/* If _exit(0) */ 
elae 
,{ 

printf ( "DETECTED ERROR\n" ) ; 

If exited due to error, kill all other aegmenta, report error, and die. 

apr int f ( tmp_err_a t r , 

"FATL: Proceaa %d running aegment %d " 
"terminated with error.", 
current_pid, index) ; 
error_handler ( "par_bill . pc • , UNKNOWN , tmp_err_atr ) ; 
par__per . atatua - -1; 
memcpy ( ahmaddreaa , 

fcpar_per, aizeof (atruct par_perf _atruet ) ) ; 
seg_per. running • 0; 
shmaddreaa_a - (a hm addreaa + 

(aizeof (atruct par _perf_struct) ♦ 
( (aegment_liat->aegment_number - 1) * 
aizeof (atruct aeg_perf_8truct) ) ) ) ; 
memcpy ( shmaddresa_a , fcaeg_per , 

aizeof (atruct aeg_perf_atruct) ) ; 
kill(0,SIGKILL) ; 
}/* _exit(l) •/ 
}/* proceaa terminated normally */ 
elae if (WIFSIGNALED(proceas_8tatua) 1-0) 
{ 

printf ("DETECTED KILL\n") ; 

/* Report that proceaa waa killed and kill */ 
/* all others before exiting. */ 
aprintf (tmp_err_atr, 

"FATL: Proceaa %d running aegment %d waa " 

■killed by eignal %d", 

current_pid, index, WTERMSIG(proce88_statua) ) ; 
error_handler ( "par_bill . pc" , UNKNOWN, tmp_err_str) ; 
par _per . status - -1; 

memcpy (ahmaddreaa, fcpar_per, aizeof (atruct par _perf_struct) ) 
seg_per. running - 0; 
ahmaddress_9 • (ahmaddreaa ♦ 

(aizeof (atruct par_perf_struct) ♦ 
( (segment_liat->aegment_number - 1) * 
aizeof (atruct aeg_perf_8truct) ) ) ) ; 
memcpy ( shmaddres8_a , &seg_per , 

sizeof (struct seg_perf ^struct ) ) ; 
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kill(0,SIGKILL) ; 
}/• Killed by signal ♦/ 

iifdef _SEQUENT_ 

elae if (WIFCOR£SIG(procesa_status) I- 0) 

ttelae 

else if (WCOREDUHP(proceaa_statua> I* 0) 

Sendif 

{ * 
printf ("DETECTED CORE\n") ; 

sprint f ltrap_err_atr, 

■FATL: Process %d running segment %d was * 
"killed by signal %d causing core dump.", 
current_pid, index, WTERMSIG<process_8tatus) ) ; 

error_handler ( "par_bill .pc" , UNKNOWN, tmp_err_str) ; 

par_per. status - -1; 

memcpy (shmaddress, ipar_per, sizeof (struct par_perf_struct) ) 
s eg_per. running - 0; 
ahraaddress_B - (shaaddress ♦ 

(sizeof (struct par_perf_struct) ♦ 
( (segment_list->segment_nutnber - 1) * 
sizeof (struct aeg_perf ^struct ) ) ) ) ; 
memcpy (shmaddress_8 , fcseg_per , 

sizeof (struct seg_perf _struct ) ) ; 
kill(0,SIGKIIX) ; 
}/• Core dump •/ 

else if (WSTOPSIG( processes t a tus) 1-0) 

( 

printf ("DETECTED STOP\n") ; 
sprint f ( tmp_err_str , 

"FATL: Process %d running segment %d was " 

"stopped by signal %d.", 

current_pid, index, WTERMSIG<process_8tatus) ) ; 
error_handler ( "par_bill . pc" , UNKNOWN , tmp_err_atr ) ; 
par_per . status - -1; 

memcpy (shmaddress, fcpar_per, sizeof (struct par_perf_3truct ) ) 
seg__per. running - 0; 
shmaddress_s - (shmaddress ♦ 

(sizeof (struct par_perf_struct) ♦ 
( (segraent_list->segraent_nuraber - 1) * 
sizeof (struct seg_perf_struct) ) ) ) ; 
memcpy ( shraaddress_s , *seg_per , 

sizeof (struct seg_perf_struct) ) ; 
kill(0,SIGKILL) ; 
}/* Stop signal */ 
else 
{ 

printf ("DETECTED UNKNOWN CONDITIONS") ; 
sprintf ( tmp_err_str , 

"WARN: Process %d running segment %d " 

"affected by signal %d.", 

current_pid, index, WTERMSIG (process_status> ) ; 
error_handler ( "par_bill . pc" , UNKNOWN, tmp_err_str ) ; 
par_per. status - -1; 

memcpy (shmaddress , 4par_per , sizeof (struct par_perf _struct ) ) 
seg_per. running - 0; 
shRiaddress_8 • (shmaddress ♦ 

(sizeof (struct par_perf _struct ) + 
( (segment_list->segment_nuraber - 1) * 
sizeof (struct seg_perf_struct) ) ) ) ; 
memcpy ( shmaddress_s , fcseg_per , 

sizeof (struct seg_perf_struct) ) ; 
kill (0,SIGKILL) ; 
}/* Unknown signal */ 
wait_count ■ 0; 

) 

else 
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if (current_pid -1) 

{ 

print f ( "process_status - %d\n" , processes t a tus ) ; 

sprintf (tmp_err_str. 

•WARN: monitorl: wait pid is finished. • 
"Parallel monitorl la terminating.*); 
errorjiandler ( "parjbiir.pc" , UNKNOWN, tmp_err_atr) ; 
finished - 1; 
}/* wait pid error dump */ 
else 
{ 

printf ("proceas_statua - %d\n" ,proceaa_status) ; 

wait_count**; 

sprintf ( tmp_err_str , 

"WARN: monitorl: No status was returned."); 
errorjiandler ( "par. bill . pc ■ , UNKNOWN , tmp_err_str) ; 

sleep (5) ; 

if (wait.count — MAXJtAIT) finished - 1; 
}/• wait pid error dump */ 
}/* Problems with wait pid •/ 
) /* maintain X processes until all segments are completed */ 
printf ( "FINISHED MONITOR. \n" ) ; 

finished - 0; 
while ( I finished) 

{ 

/• Monitor pids until all have completed without errors.*/ 
/* removed no hang up WNOHANG ao it should wait till */ 
/* something happens */ 

current_pid • waitpid ( 0 , fcprocess_statua , 0 ) ; 
if ( <current_pid I- 0) fca (current_pid I- -1)) 

{ 

printf .( "good process_statua - %d\n",process_statua> ; 
if (WIFEXITED(process_status) 1- 0) 

{ 

printf ("DETECTED NORMALS n" ) ; 

if (WEXITSTATUS(process_status) 1-0) 

{ 

printf ( "DETECTED ERROR\n" ) ; 

If exited due to error, kill all other segments, report error, and die. 

sprintf (trap_err_8tr, 

■FATL: Process %d running segment %d " 
"terminated with error.", 
current_pid, index) ; 
errorjiandler ( "par_bill .pc" , UNKNOWN, tmp_err_str) ; 
par_per . status - -1; 
memcpy ( shmaddress , ipar_per , 

sizeof (struct par_perf_struct> ) ; 
seg_per. running - 0; 
shmaddreas_s - (shmaddress ♦ 

(sizeof (struct par _perf _struct ) ♦ 
( (segment_list->segment_nuraber - 1 
sizeof (struct seg_perf_struct) ) ) ) 
memcpy ( shmaddress_s , &seg_per , 

sizeof (struct seg^perf^struct) ) ; 
kill (0, SIGKILL) ; 
}/* _exit(l) */ 
}/* process terminated normally */ 
else if (WIFSIGNALED { processes tatus) !• 0) 
{ 

printf ("DETECTED KILXAn" ) ; 

/* Report that process was killed and kill all */ 
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/• others before exiting. */ 
■print £ (tmp_err_str, 

•FATL: Process %d running segment %d was Jailed ■ 

•by signal %d", 

current _p id , index, ITTERMSIG ( processes tatua) i ; 
errorjiandler ( "par_bill.pc" , UNKNOWN, tmp_err_str> ; 
par_per. status * -1; 

memcpy (ahmaddreas , aparj>er, sizeof (struct par_perf_atruct ) ) 
seg_per . running - 0; 
shmaddresa_a - (ahraaddreaa ♦ 

(sizeof (struct par_per£_struct ) ♦ 
( (aegraent_liat->aegment_number - 1) * 
sizeof (struct aeg_perf_atruct) ) ) ) ; 
memcpy ( ahraaddreaa_a , fcaeg_per , 

sizeof (struct aeg_perf_struct) ) ; 
kill (0, SIGKILL) ; 
)/* Killed by signal */ 

#ifdef _SEQUENT_ 

else if (WIFCORESIG(proceas_atatus) I » 0) 

#else 

else if (WCOREDUMP(process_status> 1 ■ 0) 

ttendif 

{ 

printf ( "DETECTED CORE\n" ) ; 

sprint f (tmp_err_str, 

■FATL: Process %d running segment %d was * 
"killed by signal %d causing core dump.", 
current_p id, index , WTERMSIG <procesa_statua ) ) ; 

error_handler ( ■par.bill . pc • , UNKNOWN , tmp_err_str ) ; 

par_per. status - -1; 

memcpy (shmaddress , fcpar_per, sizeof (struct pax^perf ^struct) ) 
aeg_per . running - 0; 
shmaddress_s - (shmaddress ♦ 

(aizeof (struct par jperf _struct ) ♦ 
( (segment_list->segment_number - 1) * 
sizeof (struct seg_perf_struct) ) ) ) ; 
memcpy ( shmaddreas_s , fcseg jper , 

sizeof (struct seg_perf_struct) ) ; 
kill(0,SIGKILL) ; 
}/* Core dump */ 

else if <WSTOPSIG(process_statua> 1-0) 

{ 

printf ( "DETECTED STOP\n" ) ; 
sprint f (tmp_err_str, 

■FATL: Process %d running segment %d was • 

"stopped by signal %d.", 

current_pid, index, WTERMSIG (process_atatus) ) ; 
error_handler ( "par_bill . pc" , UNKNOWN, tmp_err_str) ; 
par_per. status ■ -1; 

memcpy (ahmaddreaa, fcpar_per, sizeof (struct par_perf _struct) ) 
seg_per . running » 0; 
shmaddress_s - (shmaddresa ♦ 

(sizeof (struct par_perf_struct) ♦ 
( (segment_liat->segment_number - 1) • 
sizeof (struct seg_perf ^struct ) ) ) ) ,- 
memcpy ( shmaddreaa_a , &aeg_per , 

sizeof (atruct seg_perf_struct ) ) ; 
kill(0,SIGKILL) ; 
}/• Stop signal */ 
vait_count • 0; 

> 

else 

( 

if (current _pid -l) 

{ 

printf ( " processes tatus - %d\n" , process_status> ; 
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•print f ( tmp_err_atr . 

•MARK: monitor2: wait pid is finished. • 
■Parallel manager ia terminating. - ); 
error_handler ( "par_bill .pc" , UNKNOWN, tmp_err_etr) ; 
finished - 1; 
}/* wait pid error dump •/ 
elae 
{ 

printf ( •process_atatus - %d\n" ,process_atatus) ; 

wait_count*+; 

sprint f (tmp_err_8tr, 

■WARN: monitors : No status was returned."); 
error_handler ( "par_bill . pc" , UNKNOWN, tmp_err_str> ; 

sleep (5) ; 

if (wait.count — MAXJIAIT) finished - 1; 
}/* wait pid error dump */ 
)/* Problems with wait pid */ 
}/* Monitor without creating replacements */ 
printf t "FINISHED MONITOR 2.\n">; 

segment_list - segmental ist_atart ; 

while <aegment_liat I- (struct segraent_struct »)NULL) 

< 

printf ("%3. 3s ",mar)tet); 
printf ("%s ,, ,8egment_list->rpt_file) ; 
printf ( "%17 . 17s • t oracle_login> ; 
printf ("%1. Is:", commit_f lag) ; 
printf ( Ml . Is : " . overide_f lag) ; 
printf ( "%1 . Is " , dynamic_load) ; 
printf ("%10. 108 • ,bill_date) ; 
printf ("%10. 10s • ,segment_liat->begin_acct) ; 
printf ("%10. 10s ",aegment_list->end_acct) ; 
printf {"%s " , segmental ist - >at dout_f ile ) ; 
printf ( "%d: " , segment_list->8egment_number> ; 
printf t " %d : " , segment_list- >process_id> ; 
printf ("%d: ",segment_l ist- >proceasor) ; 
printf ("%d:", segment_l ist- >running) ; 
printf ("%d " , segment_list->complete> ; 
printf ( "%ld ■ , segment_liat->csize) ; 
printf ("%ld\n" ,segment_list->asize) ; 
segmental ist - segment_list->link; 
}/* Show state of segment list when parallel manager terminated 

}/* If not error logging into Oracle */ 
else 

{ 

error Jiandler("par_bill.pc", UNKNOWN, "Can't log in to ORACLE") ; 
error - TRUE;. 
par_per . status - -1; 

memcpy(shmaddress,&par _per, si zeof (struct par_perf _struct ) ) ; 
}/• If oracle error logging in*/ 

/• free segment list memory •/ 

segment_struct * segment _tmp • segment_list - segment_list_start; 
while (segmental ist) 

{ 

segment_list - segment_list->lin)c; 

free (segment_tmp) ; 

segment _tmp - segment_list ; 

} 

if { (oracleLogin(oracle_login,NULL) ) 1- -1) 

{ 

if (((error) it ( report s_f lag) && (number_of_3egments > 1) ) 

{ 
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flhmar)c_t ime < 2 . tn»rk_t ime_arr , 1 ) ; 
par_per. status - 3; 

rnemcpy (shmaddress, ipar _per, a iieof (struct par _perf _struct) ) ; 
error - prt_bill_rpta (market, bill_date, number_of_a egmenta) ; 
shraark_t ime ( 2 , mar Jc_t ime_arr , 2 ) ; 

twtncpy(ahmaddreaa,4par _per, aizeof (atruct par_j>erf_struct) ) ; 

/• Merge utility not installed"*/ 
shmark_time ( 3 , mark_time_arx , 1) ; 
par_per . status - 4; 

memcpy(shmaddreaa,4parjper,si2eo£ (struct par_perf ^struct ) ) ; 
/* error - merge_bill_rpta ( ) •/ 
shraark_time ( 3 , marK_time_arr , 2 ) ; 

metncpy (shmaddress. fcparjmr, ai*eof (struct par_perf .struct J ) ; 

}/* generate reports if selected */ 
)/* If not error logging into Oracle */ 
else 

{ 

errorjiandler ( -par_bill .pc" , UNXNOWN, 

"Can't log in to ORACLE for reporting"); 

error - TRUE; 
)/* If oracle error logging in*/ 

if (error) 
{ 

error handler ("par_bi 11. pc", UNKNOWN, "prt _bill_rpts returned error"); 
par_per . status - -1; 

memcpy(shmaddress,*par_per,sizeof (struct par _perf _atruct ) ) ; 
}/* generate reports */ 
else 

{ 

par _per . status - 0; 

memcpy (shmaddress f fcpar_per . sixeof (struct par _perf _struct) ) ; 

} 

/• Don't need database anymore. */ 
oracleLogout ( ) ; 

shmark_time (0 , raark_time_arx , 2 ) ; 

return 0; 
}/* test main •/ 

void fork_segment (segment _s true t *aegment, 

char arg.list (ARG_C0UNT) [MAX_ARG_SIZE] , 
char * shmaddress, char * executable) 

{ 

char tmp_err_str 180] ; 
char *shmaddress_s; 

/* Set up segment specific arguments execution */ 
sprintf (arg_listt2] , -%s" , segment ->rpt_ffile) ; 
sprintf (arg_list [8] , Md" , segment ->segment_number) ; 
sprintf (arg_list (9] , -%s" , segment ->begin_acet> ; 
sprintf (arg_list (10 ] , -%s" . segment ->end_acct) ; 
sprintf <arg_list [11] , "%a",aegment->atdout_file) ; 
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/• flush before fork to avoid stdio file inconsistencies */ 
f flush Otdout) ; 

if ( (segment- >process_id - vforkO) 0) 

{ 

/• Set stdout descriptor to close on successful exec only. •/ 

fcntl(l,F_SETFD,l> ; 

/* Exec a bill segment */ 

if (execlt executable, arg_list[Oj, 

arg_list [lj , 

arg_list [21 , 

arg_list[3], 

arg_list[4], 

arg_list [5] , 

arg_list(6), 

arg_list [7] , 

arg_list [8] , 

arg_list(9]. 
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arg_list(10] . 
arg_liat [11] . 
arg_liat(12)> — -1) 

< 

eprintf (tmp_err_atr, 

■PATL: Failed to exec segment %d» , segment - > segment _number) 
error Jiandler ( ■par.bill . pc" , UNKNOWN, tmp_err_str> ; 

par_per . status - -1; 

memcpy(shmaddress.4parj>er ; sizeof (struct parj>erf_struct ) ) ; 
seg_per . running - 0; 
shmaddress_s - (shmaddress ♦ 

(sizeof (struct par_perf _struct ) ♦ 
( (segment- > segment _number - 1) * 
sizeof (struct seg_perf _struct ) ) ) ) ; 
memcpy ( shmaddress_s , 4seg_per , 

sizeof (struct seg_perf_struct) ) ; 
/• Kill off process group first, then exit */ 
Jcill(O.SIGKILL) ; 

) 

} 

else if (segment- >process_id 1- 0) 

{ 

segment -> running - 1; 

printf ( "process created - %d\n", segment - >proces s_id ) ; 
}/• Parent should log segment as a running segment */ 



} 



void ahmark_time(int remark_nr, markka truct *time_array, int mark_number) 

t " . 

int error- 0; 

int sequential-O; 

int cmp-0; 

time_t curtime; 

struct tin *loc_time; 

/* set the minutes west of Greenwich and timezone treatment */ 

if (curtime » time(0)) 
{ 

loc_time • localtime (tcurtime) ; 

/• determine the elapsed time since the last mark */ 
if (mark_number 1) 

{ 

printf (■%» %8",tin>e_array[remark_nr] . remark, asctime < loc_eime )> ,- 

) 

if (mark_number 2) 

( 

printf ("%s - time elapsed since last mark: sees %f\n", 

time_array (remark_nr] .remark, 

(float) ((float) curtime - 

(float) time_array(retnark_nr] .seconds) ) ; 
if (remark_nr — 1) 

{ 

par_per.load_bal_time • 

curtime • time_arraylremark_nrl .seconds; 

} 

else if(remark_nr 2) 

par_per . rpt_build_time • 

curtime - time_array tremark_nr) .seconds; 

} 

else if(remark_nr 3) 

{ 

par_per.rptjnerge_time • 

curtime - time_array (remark_nrj .seconds; 

) 
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} 

time_array|re«iar)c_nr) .aecenda • curciae; /• pex conversion •/ 

) 

) 
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•define MAX_PROCS 50 
•define MAX_WAIT 100 
ftdefine ARG_COUNT 13 
•define MAX_ARG_SXZE 30 
•define SHARED_MEM_K£Y 100 

•include <«y«/typea.h> 

• include "par_man _proto.h" 



struct aegment_atruet 

{ 



char • 


market [4] ; 


char 


rpt_file[25); 


char 


oracle_login(18] 


char 


commit_flag[2] ; 


char 


overide_flag(2] ; 


char 


bill_date(U] ; 


char 


begin_acctUU ; 


char 


end_acct [11] ; 


char 


stdout_file[25] ; 


long 


csize; 


long 


asize; 


long 


row_num; 


long 


count ; 


int 


segment_number ; 



•ifdef _SEQUENT_ 

int process_id ; 
•else 

pid t process^ 
•endif 

int processor ; 

int running ; 

int complete; 
struct 9egment_struct # linlc; 

); 



struct acct_range 
{ 

char begin_acct [10] ; 
char end_acct [10] ; 
struct acct_range *link; 
}; 



struct merge_struct 

{ 

int 
int 
int 
int 
int 



segment_number ; 
process_id; 



processor; 
running; 
complete; 
struct mergers t rue t # link; 

}; 



struct seg_perf_struct 

{ 

int 
int 
int 

•ifdef _SEQUENT_ 

int 
•else 

pid_t 
•endif 

int 

int 

int 



seg_bills; 
seg_accts ; 
segment_number ; 

process_id; 

process_id; 

processor; 
running ; 
complete; 



long 


alow_time; 


long 


faat_time; 


long 


last_acet_time ; 


long 


last_cuat_time ; 


long 


elapsed_time; 


long 


total_time; 


long 


bill_count t 


long 


acct_count ; 


char 


last_account [10] ; 


char 


laat_cuat (10] ; 



struct par_perf_struct 



{ 

int segments ; 

int status ; 

long load_bal_t ime ; 

long rpt_build_time; 

long rpt_merge_tirae ; 

); 



/* status values definition 
- 0 - terminated normally 

> 0 - status (1 - load? 2 - bill exec; 3 - report build;4 - report merge) 

< 0 - abnormal termination signal code 

•/ 
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i include <«tdlib.h> 

•ifdef _SEQUENT_ 

•include -parallel /parallel. h- 

•include <sya/tmp_ctl.h> 

Nendif 

•include "itddevlp. fa- 
int get_cpua() 

{ 

/* default cpus for a non- parallel machine 
int cpu_eount»l; 

/• Get number of CPUs */ 
•ifdef _SEQUENT_ 

cpu_count • cpua_online() ; 
' ttendif 



return (cpu_count) ; 



/ 

• Name : error_handler 

• Description : The billing system error handling routine. 
• 

• Parameters : f_name - the function calling the error routine. 

• error_code - error message code. 

• info - additional error information. 
• 

• Return Value : void. 



* Notes 

/ 

# include <stdio.h> 
tt include <string.h> 
# include <time.h> 
#include "bglobal.h" 
♦include "vg_error.h" 

void error_handler (char *f_name,int error_code , char *info) 
/• char *f_name - funtion name */ 
/* int error_code - error code */ 

/* char *info - additional information e.g. filename of open file */ 

{ 

FILE *fp; /* file pointer to error log fil^e */ 

char message [ ERR_MESSAGE_LENGTH* 1 J ; 

char *err_log_fn - "vgerr.log"; 

time_t curtime; /* current time in seconds */ 

/* print any addi tonal instructions and set the return status */ 
switch (error_code) 

{ 

case QTEL_DB: 

strcpy (message, "error updating OTEL database"); 

break ; 
case TAPE_READ : 

* strcpy (message. "error reading tape"); 

break ; 
case FILEOPEN: 

sprintf (message, "can' t open file %-s",info); 

break ; 
case FILE CLOSE: 

sprintf (message, "can' t close file %-s",info); 

break ; 
case FWRITE: 

sprintf (message , "f write error in file %-a",info); 
break ; 
case FREAD: 

sprintf (message, "f read error in file %-s",info); 
break ; 
case FSEEK: 

sprintf (message, "f seek error in file %-s",info); 

break ; 
case ORACLELOG: 

strcpy (message , "can't log on to oracle"); 

break ; 
case ORACLECREATE : 

sprintf (message, "can' t create the table %-a".info); 

break ; 
case ORACLE INSERT: 



sprint f (message, "can't insert %-s",info>; 

break ; 
case ORACLEDELETE : 

sprintf (message, "can't insert %-a",info); 

break ; 
case ORACLESELECt : 

aprintf (message, "can't select %-s",info); 

break; 
case ORACLEUPDATE : 

sprint £ (message, "can* t update %-a",info); 

break; 
case ORACLENOTFOUND : 

sprintf (message, "table not found %-s-,info); 

break ; 
case SYS_ERROR : 

sprintf (message, "cannot execute the system call %-s",info); 
break ; 
default : 

sprint £ (message, "UNKNOWN error %-s",info); 
} /* switch error_code */ 
/* write the error message to the error log file */ 
/* if the log file does not exist then create it */ 

/* NOTE: The use of "a*" to append and/or create to append is not in */ 
/* accordance with the ansi standard and may cause upgrade and/or port * 
/• problems. */ N 
if ( (fp - fopen(err_log_fn, "a+") ) l- NOLL) 

{ 

if ((curtime - tirae(O)) I » -1) 
{ 

fprintf (fp, "%s error in %s : %s\n",ctime (fccurtime) , 

f_name, message) ; 

} /♦ if time of day */ 
else 
{ 

printf ("NnCan't get the time of day value\n") ; 
} /* else error */ 

if (fclose(fp)) 

{ 

printf CNnError handler: can't close the error log file\n") ; 
printf ("%s error in %s : %a\n" , ctime Ucurtime) , 

f_name, message) ; 

} ./* if fclose •/ 
} /* append to existing or open new log file •/ 
else 

{ 

printf ("\nError handler: can't open the error log file\n">; 
printf ("%s error in %s : %s\n" , ctime (tcurtime) , 

f_name, message) ; 

} /• can't open error log file */ 
} /• error_handler */ 
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iifndef __PAR_MAN_PROT0_H 
•define PAR_MAN_PROTO_H 

int get_di«tribut ion (struct ■egment_atruct •••egraent_li«t, 
char *marJcet, 
long number_o£_«egment« , 
char * dynami c_load , 
char •atart_acco\int, " 
char •end_account) ; 

int get_cpua 0 ; 

void error_handler{char *f_name,int error_code , char *info) ; 
BOOLEAN prt_bill_rpts(char *mkt,char •billdate,long aegraent_count ) 
BOOLEAN get_executable {char *path, char *name) ; 



#sndif /* PAR MAN PROTO H */ 



•define PROJECT_MAIN 


((define BILLJTEST 


•include 


<icuo • 


# include 


CCITUw * 117 


w inc iuoc 


<unistd • h> 


•include 


<mllvw * Il> 


• include 


<iL(Uio • n> 


If include 


^■f r ins 


If include 


• hill alaKjtl h" 


# include 


Dili sbrucbiti 


ffUlClUOC 


m euaiMntfl . h* 


•include 


■stddevlp.h" 


•include 


"vg_error.h* 


•include 


"error. h" /• RBV1 */ 


•include 


■ error^proto . h ■ 


•ifdef _SEQUENT_ 


•include 


<«ys/tmp__ctl . h> 


•endif 




•include 


< sys/ types. h> 


•include 


<8ya/ipc.h> 


•include 


<sys/shm.h> 


•include 


<tirae.h> 


•include 


■taxlib.h- 


•include 


■bill_proto.h" 


•include 


■bparallel.h- 



char *a; 

•ifdef _SEQUENT_ 

extern "C" char •abrk(int); 

•endif 



struct ora_tab_atruct 

{ 

char table_name{81] ; 
long seconds ; 
long useconds; 
}; 

/* These are global for diagnostic development purposes. */ 
int segment »0; 

struct ora_tab_struct oracle_ tables [10] ; 

•pragma sequent _expandable (print f ( ) , f print f t ) , memcpy ( ) . f write ( ) } 
EXEC SQL BEGIN DECLARE SECTION; 

static VARCHAR uid[80]; /* user id */ 

static char omarket [3] ; /* bill date validation kludge */ 

static char obill_date [8] ;/* bill date validation kludge */ 

static VARCHAR obill_date2 {10] ; /* thp - bill date validation */ 
static VARCHAR obill_date_teat [10] ; /• thp - bill date validation 

EXEC SQL END DECLARE SECTION; 

•undef SQLCA_STORAGE_CLASS 

EXEC SQL INCLUDE SQLCA.H; 

EXEC ORACLE OPTION { MAXOPENCURSORS -30) ; 



struct mark_struct 

{ 

char remark [81]; 
long seconds; 
long useconds ; 

}; 



void market ime (int remark_nr , raark_struct *time_array, int mark_number) ; 



GLOBAL Taxlnterface *taxer; 
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Name main 

Description Main driver for the billing system program. 



/ 

/* Global segment performance monitoring struct */ 
struct seg_perf_struct seg_perf; 

mainfint argcchar **argv) 

{ 

struct rev_by_cat *rev_list - (struct rev_by_cat *>NOLL;/* Revenue by charge */ 



FILE *pfp; /* print file file pointer */ 

FILE *bdfp ; /* bill detail file file pointer */ 

register FILE *tpfp; /* temporary print file file pointer */ 

register FILE *tbdfp; /* temporary bill detail file file pointer */ 

BOOLEAN error - FALSE; /* error flag */ 

BOOLEAN found; /* found flag */ 

int return_val * OK; /* return value */ 

char print_fn[80] ; /* print file name •/ 

char print_tmp_fn[80) ; /* temp print file name */ 

char bill_image_fn [80] ; /* bill image file name */ 

char bill_image_tmp_fn (80] ; /* temp bill image file name */ 

char bill_summary_fn[80] ; /* bill summary file name */ 

char market [4J ? /* market id to produce bill for */ 



struct switch_mkt_struct market_rec; /* market information record */ 

struct market_call_struct *market_ call_list - (struct market_cal Instruct *)NDLL; 

/* call list by market */ 
struct rate_plan_struct *rate_plan_list • (struct rate_plan_struct *}NuXL; 

/* rate plan list */ 
struct rat e_plan_s true t <rus t omer_r a t e_p 1 an ; /* customer rate plan */ 
struct totals_struct totals; /* totals by category and taxes */ 
memset (fctotals , NULL, sizeof (totals_struct) ) ; 

struct totals_struct current_charge_totals ; /• list of totals for current 

charges table update */ 
memset (&current_charge_totals,NULL, sizeof (totals_struct) ) ; 
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struct recur_struct -recur_list ■ (struct recur_struct *) NULL; 

/• customer recurring charges •/ 
struct recur_struct *misc_mkt_ehg - (struct recur_struct *)NULL; 
struct non_recur_struct *nonrecur_list - (struct non_recur_struct *)NULL; 

/• customer nonrecurring charges •/ 
struct call_struct *call_liet - (struct call_struct *>NULL; /* call list */ 
struct cust_struct *cuat_info_li«t • (struct cu*t_struct *)NULL; 

/* customer information list */ 
struct tod_desc_struct •tod.desc.liat ■ (struct tod_des obstruct *)NULL; 

/* tod description list */ 



struct bill_info_atruct bill_info_rec; /* billing information record */ 
memset (ibillJ.nfo_rec,NULL.sizeof (bill_inf obstruct} ) ; 



struct exemption_info •exempt ion^list • ( exempt ion_info *>NULL; 

struct ar_struct *ar_list - (struct ar_struct *)NULL; /• A/R information list */ 
struct collect_adj_struct *collect_adj_list - (struct collect_adj_struct *)NULL; 

/•adjustments list for collections*/ 
struct adjustment_struct *adjustment_list - (struct adjustment_struct *)NULL; 

/* adjustments list */ 
struct fyi_notice_struct *fyi_messagea - (struct fyi_notice_struct *)NULL; 

/* for your inf oration list •/ 

struct date_struct toaays_date; /• todays_date •/ 

struct date_struct latefee_date; /* date of latefee threshold •/ 

struct date_struct bill.date; /• bill cutoff date */ 

struct date_struct periodjiate; /* billing period start or end date •/ 

struct date_struct due_date; /* bill due date •/ 

struct date_struct prorate_to_date ; /* prorate to date */ 

struct date_struct prorate_f rom_date ; /* prorate from date */ 

struct date_struct activation_date; /* customer activation date */ 

struct date_struct deactivation_date; /* customer deactivation date */ 

struct date_struct suspend_date ; /• customer suspend date */ 

struct date_struct of f set_display_date; /• bill date ♦ offset*/ 

int i; /* loop control and indexing */ 

struct airtime_summary_struct *airtime_summary • 

(struct airtime_summary_struct * ) NULL; 

/* airtime summary for reporting */ 
struct report_format rev_rpt_struct ; /* account receivable report structure */ 
struct report_format ar_rpt_st ruct ; /* account receivable report structure */ 
char **as_rpt; /* pointer to airtime summary report */ 

struct report_format as_rpt_struct; /* airtime summary report structure */ 
char **tas_rpt; /* pointer to toll and airtime summary report */ 

struct report_format tas_rpt_struct ; /* toll and airtime summary report struct*/ 
struct toll_airtime_struct *toll_airtime_list - 

(struct toll_airtime_struct *)NULL; 
/* toll and airtime summary for reporting */ 
struct totals_struct total_non_call_totals; /* non call totals for market*/ 

memset (&total_non_call_totals,NULL.si2eof (totals_struct) ) ; 

struct call_totals_struct total_call_totals; ,/• call totals for market*/ 

memset (itot a l_call_totals, NULL, sizeof (call_totals_st ruct) > ; 
struct call_totals_struct total_roamer_totals ; /• roamer totals for */ 

/* market*/ 

memset (&total_roamer_totals,NULL, si2eof (call_totals_struet) ) ; 

char **billing_rpt ; /• pointer to billing report •/ 

struct report_format billing_rpt_struct; /* billing report struct*/ 

char **js_rpt; /* pointer to journal summary report •/ 

struct report_£ormat js_rpt_struct; /* journal summary report struct*/ 

struct journal_struct *journal_list - (struct journal_struct *)NULL; 

/• journal summary for reporting */ 
char **ps_rpt; /* pointer to phone sales report */ 

struct report_format ps_rpt_struct ; /* phone sales report struct*/ 
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etruct tax_reg_aummary *tax_regieter - (tax_reg_summary *)NULL; 

/* tax register by geocode */ 

struct report_format zero_rpt_struct ; /• zero bill report struct*/ 

struct report_forraat axcp_rpt_atruct ; /* exception report struct*/ 

struct report_format dxcp_rpt_atruct ; /• exception report struct*/ 

char **tr_rpt; /• pointer to tax register report •/ 

struct report_format tr_rpt_atruct ; /• tax register report atruct*/ 

char ••chrg.rpt; /* pointer to charge detail report •/ 

struct report_forraat chrg_rpt_atruct; /* charge detail report struct*/ 

char **comw_rpt; /• pointer to commission waivers report */ 

struct report_format comw_rpt_struct; /* commission waivers report struct*/ 

struct phone_sales_list_struct *phone_saleB_liat_header • 

(phone_aalea_list_struct *)NULL;/* charge type header • 
struct phone_sales_list_struct *phone_sales_list_header_cur • 

(phone_aales_list - struct *)NULL;/* charge type current 
struct phone_sales_tot_struct *phone_sales_liat • 

(atruct phone_salea_tot_struct *)NULL; 
/* phone salea for reporting */ 

struct cur_charge_struct *cur_charge_list ■ 

(atruct cur_charge_struct *)NULL; 
/* charge list start */ 
BOOLEAN bill_commit - FALSE; /* TRUE if this run is a commit billing */ 
BOOLEAN overide - FALSE; /* TRUE if no abort on date errors.*/ 
char *temp_list_start; /* generic pointer used to free linked lists */ 

struct bill_format bp; /* bill page format structure */ 
struct bill_format dbp; /• detail bill page format structure */ 
struct cust_struct *master_aggregate_ptr; /* master aggregate pointer */ 

/* while processing an aggregate account */ 
struct aggregate_struct *aggregate_totals • (struct aggregate_struct *)NTJLL; 

/• list of aggregate totals */ 

struct aggregate^ t rue t *aggregate_totals_atart - 

(struct aggregate_struct *)NULL; /* list of aggregate totals */ 
BOOLEAN process ing_aggregate • FALSE; /* TRUE if currently processing an */ 

/* aggregate account */ 
struct p_category_s tract *-cat_list - {struct p_category_struct *)NCLL; 

/* adjustment print category list */ 
char prev_acct_nr [10] ; /* previous account number being processed */ 

int airtime_detail_start ; /* starting page of airtime detail */ 

struct commwaiv struct *comw list - (struct commwaiv_struct *)NULL; 



long comv_amt_cotals » OL; 

long comw_fed_totals ■ OL; 

long comw_state_totals - OL; 

long comw_county_totals - OL; 

long comw_loc_totals - OL; 

struct mark_struct market ime_arr (20 J ; 

struct collections_info dunning_cust ;/* Node of customer information for 

late notice */ 
memset <&dunning_cust,NULL,sizeof (collections_inf o) ) ; 
struct zero_bill_struct *zero_bill_list - (zero_bil Instruct *)NULL; 

/* pointer of customer information for 
zero bill report */ 
struct collections_stat_hdr dunning_stats_hdr ; 
memset Udunning_stats_hdr,NULL, sizeof (collections_stat_hdr) ) ; 
struct collections_stat 

*dunning stats - (struct collections_stat *)NULL; 
struct collections_info *dunning_exception_list • 
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(atruct collections_info MNULL;/* Liat of dunning exception* 
BOOLEAN s end_bi 11 -FALSE ; 

■truct duedate_list •ddl.list • (struct duedate_liat •JNULL;/* duejiate liat 
atruct free number_struct *f ree^numberjtr ; /*f reenuraber table (roam america) 



call_atruct *taxable_calla - (call_«truct * J NULL; 

atruct super_list *super - (atruct aaper_liat *>NOLL; 

atruct write-off •temp_write_of f -(atruct write-off ->NULL; 

struct debt.exception *temp_debt_xcp -(atruct debt_exception •JNULL; 

struct joumal.ref *temp_jour_ref« (struct journal_ref ■ )NULL; 

struct rev total *temp_rev_total- (atruct rev_total *)NULL; 

struct bill_parameter *temp_bill _parama- (struct bill_parameter *)NULL; 



/ 



/• 

/* - Call discounting variables and functions */ 

/ / 

struct discountPlan plan; 
char pfilejwf [1S5648 * 2); 
char pfile_buf_tmp [155648 ] ; 
char bfile_buf [155648 * 2] ; 
char bfile_buf_tmp 1 155648 1 ; 



char sxcp_file [30] ; 
char dxcp_file[30] ; 
char zero_file[30] ; 
char ar_rpt_file[30] ; 
char as_rpt_file(30] ; 
char tas_rpt_file[30] ; 
char js_rpt_file[30] ; 
char ps_rpt_file(30] ; 
char tr_rpt_file [30] ; 
char comv_rpt_file [30] ; 
char rev_chg_rpt_f ile [30] ; 
char billing_rpt_file(30] ; 



BOOLEAN reopen_f lag -FALSER- 
BOOLEAN parallel-FALSE; 
char diag_file_name (4 0] ; 
char diag2_f ile_name [40] ; 
char error filename [40] ; 

/• -- : / 

/* - Call discounting variables and functions */ 

/ - " */ 

FILE *fpstd; . 
FILE *fpstde; 

/* Shared memory interface variables •/ 
key_t shbi 1 1 Jcey-SHARED_MEM_KEY ; 
key_t shbill_id-0; 

char *3hmaddress; /• Pointer to shared memory */ 

char tmp_err_buf [80] ;/* for more descriptive error messages */ 



strcpy (mark_time_arr [0] . remark, "BDRFT 
mark_time_arr[0] .useconds - 0L; 
mark_time_arr [0] .seconds - 0L; 
strcpy (mark_time_arr [1] .remark, "MTIME 
mark_time_arr [1] .useconds - 0L; 
market ime_arr [1] .seconds - 0L; 
strcpy imark_time_arr( 2] .-remark, "MTIME 
ma rk_time_arr [2] .useconds * 0L; 
mark_time_arr [2] .seconds - 0L; 
strcpy tmark_time_arr [3] . remark , "MTIME 



- NEW CUSTOMER* ) ; 



- POST PAYMENTS" > ; 



POST CALLS (HOME) 1 ) ; 



- RATE LOCAL HOME AIRTIME") ; 
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mark_tirae_arr [3) .uaeconda - OL; 
mark_time_arr [3] .aeconda - OL; 

atrcpy (mark_time_arT 14) .remark, "MTIME - PRINT BILL") ; 
mark_time_arr (4] .uaeconda • OL; 
mark_time_arrt4] .aeconda - OL; 

atrcpy (market ime^arr [5] . remark, ■ MTIME - TOTAL BILL PROCESS") ; 
mark_time_arr (5] .uaeconda - OL; 
mark_time_arr [5 J .aeconda - OL; 

atrcpy <mark_time_arr [6] .remark, "MTIME - RPT DATA INSERT"); 
mark_time_arr [6] .uaeconda - OL; 
market ime_arr 16] .aeconda - OL; 

atrcpy (mark_time_arr (7]. remark. "MTIME - POST CALLS (ROAM)"); 
mark_time_arr [7] .uaeconda - OL; 
mark_time_arr [7] .aeconda - OL; 

atrcpy (market ime_arr (8] .remark* "MTIME - CALC ROAM (ROAM) Mi- 
ma rk_time_arr (8) .uaeconda • OL; 
mark_time_arr 18) .aeconda - OL; 

atrcpy (mark_time_arr [9] .remark, "SUMMARY USAGE 2") ; 
market ime_arr [9] .uaeconda - OL; 
mark_time_arr (9) .aeconda - OL; 

strc^y(mark_time_arr [10] .remark, "SUMMARY USAGE 3") ; 
mark_time_arr (10) .uaeconda - OL; 
mark_time_arr 110] .aeconda - OL; 

atrcpy (mark_time_arr 111] .remark, "SUMMARY USAGE 4"); 
mark_time_arr (11) .uaeconda • OL; 
mark_time_arr til] .aeconda - OL; 

atrcpy (inark_time_arr [12] .remark, "SUMMARY USAGE 5"); 
market ime_arr [12] .uaeconda - OL; 
mark_time_arr t 12] .aeconda - OL; 

8trcpy ( market ime_arr [13] . remark, "MTIME - RPT DATA INSERT"); 
market ime_arr [13] .uaeconda - OL,* 
market ime_arr [13] .aeconda - OL; 

// clear out plan atruct 

memset (iplan, NULL, sizeof (discount Plan) ) ; 

// set up error handler information 
setldentity (argv(O) ) ; 
setErrorFile ( "vgerr.log") ; 

/* Set I/O buffer si2e for standard out 
setvbuf (stdout, (char) NULL, _IOFBF, 65536) ,- */ 



mark_t ime { 5 , market ime_arr , 1 ) ; 

str cpy ( market , argv [ 1 ] ) ; 
if (argv[4) l» (char)NULLi 

{ 

sscanf (argv (4] , ■ %2d/%2d/%4d" , &bill_date. month, tbill_date. day, 

&bill_date.year) ; 
sprintf (bill_date.date_str, "%4d%02d%02d" ,bill_date .year, 

bill_date .month, bill_date . day ) 

} /• if arg passed */ 
else 

{ 

bill_date.year - 0; 

bi Update .month - 0; 

bill_date.day - 0; 

} /• elae no arg passed */ 

memcpy (obill_date , bill_date .date_str, 8 ) ; 
memcpy (omarket , market , 3 ) ; 

vput ( &obill_date2 , argv [4 ] ) ; 



/ / 

/• . - Sec the error log tor the changes that use the •/ 
/* usererr function for reporting error from billing. •/ 



open_error_log ( "vgerr . log" ) ; 

if (*argv[5) « '1M 

bill_commit - TRUE; 
if fargv[6] '1') 

overide • TRUE; 
if Cargv(7] — 'PM 

parallel - TRUE; 

if ((segment - ( (int)atoi <argv[8] ) ) ) «• 0) 

{ 

errorjiandler ( "bill_teat . pc" , UNKNOWN, 
"Could not determine segment number."); 
_exit(l) ; 

T 

if (parallel) 

spr int f ( ar_rpt_f i 1 e , ■ ar_%d . rpt ■ , segment ) ; 

else 

spr int f (ar_rpt_file, "ar.rpt") ; 

sprintf (as_rpt_file, "as. rpt") ; 
sprintf ( tas_rpt_f ile , "tas . rpt ■ ) ; 
sprintf (js_rpt_file, -js.rpt") ; 
sprintf (ps_rpt_file, "ps.rpt") ; 
sprintf (tr_rpt_file, "tr.rpt") ; 
sprintf (comv_rpt_file, "com*. rpt") ; 
sprintf (rev_chg_rpt_file, "rev_chg.rpt") ; 
sprintf (billing_rpt_file, "billing. rpt") ; 
sprintf (diag_file_narae, "%s.xxx" ,argv[ll] ) ; 
sprintf (diag2_file_name, "%s.err" ,argv[ll] ) ; 

if((fpstd - f reopen (diag_file_name, -wVstdout) ) *• (FILE *)NULL) 

{ 

error_handler ( "bill_test . pc" , F I LEO PEN, 
"Could bill diagnostic file"); 
_exit (1) ; 

}/* Can't open diagnostic file */ 
else 

{ 

if((fpstde - f reopen ( diag2_f i le_name, "wVstderr) ) (FILE *)NULL) 

{ 

errorjiandler ( "bill_test .pcV FILEOPEN, 
"Couldn't open stderr bill diagnostic file") ; 
_exit (1) ; 

}/* Can't open diagnostic file */ 

sprintf (tmp_err_buf , "stark r %d" , sbrk (0) ) ; 
errorjiandler ( "par_bill . pc ■ , UNKNOWN, tmp_err_buf ) ; 
#ifdef _SEQUENT_ 

shbill_id - shn*get(shbill_key,0,IPC_CREAT) ; 

ttelse 

shbill_id - shmget ( (int) shbilljcey, 0, IPC_CREAT) ; 

#endif 

sprintf ( tmp_err_buf , ■ sbrk : %d" , sbrk ( 0 ) ) ; 
error_handler ( "par_bi 11 . pc " , UNKNOWN , tmp_err_buf ) ; 

if (shbill_id -1) 

{ 

error • 1; 

sprintf (tmp_err_buf, 

"Shared memory allocation for %d: attempt failed. ", shbilljcey) ; 
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error Jiaiidler <"bill_test.pc" , UNKNOWN, tmp_err_buf ) ; 

_exit(0); 
}/* Gee new key if in use */ 
else 

{ 

/* Attach shared memory segment •/ 
// Hifdef _SEQUENT_ 
// shmaddress - shmat (shbill_id, 0, 0) ; 
// #else 

shmaddress - (char *) shmat t (int)shbill_£d. (void *) 0, 0) ; 
// #endif 

sprint f ( tmp_err_bu£ , » sbrit : %d" , sbrk ( 0 ) > ; 
error_handler < "par_bill . pc ■ , UNKNOWN , tmp_err_buf ) ; 
if (Hint ) shmaddress) -- -1) 
{ 

sprint £ (tmp_err_buf , "Chimp3 %d" , errno) ,* 
perror ttmp_err - buf ) ; 

error ■ TRUE; 

sprintf (tmp_err_buf , 

"Could not attach shared memory in segment %d. ", segment) ; 
error_handler ( "bill_test .pc" , UNKNOWN, tmp_err_buf ) ; 
_exit (1) ; 

} 

else 

{ 

/• Set shared memory address to that of this segments shared area 
shmaddress (sizeof (struct par_perf_struct) ♦ 
((segment-1) * 
sizeof (struct seg_perf_struct) 

) 

) ; 

memcpy ( &seg_perf . shmaddress , sizeof (struct seg_perf _struct ) ) ; 

seg_perf . segment _number - segment; 

seg_perf .running - 1,* 

seg_perf . complete • 0; 

seg_perf .slow_time ■ 0; 

seg_perf . fast_time ■ 100; 

seg_perf . last_acct_time » 0; 

seg__perf . lase_cust_time - 0; 

seg_perf .elapsed_time - 0; 

seg_perf .total_time * 0; 

seg_perf .bill_count - 0; 

seg_perf . acct_count • 0 ; 

memcpy ( seg_per f . last_account , 

"XXXXXXXXXX",10) ; 
memcpy ( seg_perf . last_cust , 

"XXXXXXXXXX ",10) ; 

/* Initialize shared memory for this treagraent. */ 

memcpy (shmaddress, fcseg_perf , (sizeof (struct aeg_perf ^struct ) ) ) ; 

sprintf ( tmp_err_buf , ■ sbrk : %d" , sbrk ( 0 ) ) ; 
error_handler ( "parjaill . pc" , UNKNOWN, tmp_err_buf ) ; 

} 

} /* got shmgetO */ 

setvbuf (stdout, (char) NULL, _IOFBF, 65536) ; 

printf (»%s %s %s %s %s %s %s ts %s %s %s %s %s\n", 

argv(0] . 
argv(l] , 
argv(2] , 
argv(3], 
argv(4) , 
argv[5] , 
argv(6], 
argv[7], 



argv[8), 
argvOl, 
argv[10j , 
argv[ll], 
argv[12l) ; 
}/• TESTING REMOVE */ 

/* log on to oracle */ 
strcpyUchar *)uid.arr,argv[3] ) ; 
uid.len - atrlenUchar *)uid.arr) ; 
EXEC SQL CONNECT :uid; 
if (sqlca.aqlcode « NOT_SQL_ERROR) 

{ 

/* 

EXEC SQL ALTER SESSION SET OPT IMZEJM3QAL • RULE; 
EXEC SQL ALTER SESSION SET SQLJTRACE TRUE ; 

•/ 

/• ... ■ - 

EXEC SQL SELECT TO_CHAR (TO_DATE ( : obill_date2 , ' mm/dd/YYYY' ) ) INTO :obill_date_test FROM DUAL; 

if (sqlca.aqlcode I- 0) 
{ 

errorjiandler < "bill_test .pc" , UNKNOWN, 

"FATAL ERROR : bill date parameter is not in rnm/dd/YYYY format."); 

exit(0); 

}/• If error, abort and inform operator to check bill date */ 
/• thp - end new kludge •/ 

/♦ HUGE VANGUARD KLUDGE FOR bill date validation */ 

EXEC SQL SELECT BILL_DATE INTO :Obill_date2 FROM .SWITCH_MARKET WHERE 
MARKET - :omarket AND 

BILL_DATE - ADD_MONTHS (TO_DATE { :obill_date , ' YYYYMMDD' ) , -1) ; 

if ( (sqlca.aqlcode l- 0)) 

( 

error_handler("bill_test.pc", UNKNOWN, 

"FATAL ERROR : bill date parameter is not 1 month greater than last bill date."); 
_exit(0); 

}/* If error, abort and inform operator to check bill date */ 

// wholt 12/6/92 changed for acv t«Jt lib 
taxer - new Taxlnterf ace; 

/• 

sprintf (print_fn, "/dev/null") ; 

sprintf (print_tmp_fn, "%s.prt.tmp" ,argv[2] ) ; 

*/ 

sprintf (print_fn, "%s.prt" ,argv(2] ) ; 
sprintf (print_tmp_fn, "%s.prt.trap" ,argv[2) ) ; 
sprintf (bill_image_fn, "%s.bmg",argv[2] ) ; 
sprintf (bill_image_tmp_fn, "%s.bmg.tmp",argv(2] ) ; 

/• / 
/* Get the super_list from the database (rgatea) •/ 

/• " ""*/ 

if ( ibld_writeof f_list (&temp_vrite_off ) ) 

{ 

add_sub_list ( fcsuper , temp_write_of f , WRITEOFF) ; 

} 

if ( tbld_debt_xcp_list (&terap_debt_xcp) ) 

{ 

add_sub_liflt ( fcsuper , temp_debt_xcp , DEBT_EXCEPT) ; 

if ( !bld_jrnl_ref_list (ttemp_jour_ref ) ) 
( 

add sub list I fcsuper , temp_j our_ref , JOURNAL_REFERENCE ) ; 

} 
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if ( lbld_rev_total_ll«t (4t«i^_rev_toc«i) ) 

( 

add «ub_liet ( taupe r, t erap_rev_tota 1 , REVENUE_TOTAL) ; 

) 

if ( i get_bi 1 l_parama ( fctempjbi ll_parama . market ) ) 

{ 

add_aub_list (lauper, te™p_bill_parama, BIIi.ING_PARAMS) 

) 

/ - V 

/* . - Get the discount plana from the database */ 

/ / 

if (retreiveDiscountPlans (iplan, market, bill_date.date_atr) -1) 

< 

error_handler("Call Discounting" ( 

UNKNOWN, "Could not get discount plana"); 

_exit(l) ; 
> " 

/* name file by market */ 

if (((pfp - fopen(print_fn, "w+") ) I- NULL) fcfc 

((bdfp - fopen(bill_image_fn, •»»♦") ) I- NULL) ) 

{ 

if (setvbuf (pfp,pfile_buf ,_IOFBF, 153600) 0) 
if (setvbuf (bdfp,bfile_buf,_IOFBF,lS3600> — 0) 

/* build the free number list 

f ree_number_ptr - get_f ree_list ( ) ; 
/* retrieve the market information record */ 
if ( Igetjnarket (market , fcmarket_rec) ) 

{ 

if { lget_due__list (market, 4ddl_list) ) 

{ 

if ( ! get_dunning_leeway (&market_rec . leeway_araount , 
amarket_rec . latef ee_leeway, 
market ) ) 

{ 

printf ( "notice %ld latef ee %ld leeways \n",market_rec. leeway_amount , 

market_rec . latef ee_leeway> ; 



if ( !get_rate_list ( &rate_plan_list , market , 
iairtime_summary> ) 

{ 

due_date.day • market_rec . due_date_day_in_month ; 

if ( lget_date_values (&bill_date, fcperiod_date , &due_date , &todays_date , 
t latef ee_date, ( int ) market_rec . latef ee_threshold, 
market_rec . init_pay_type , over ide , super ) ) 

( 

if (strcmp(market_rec.bill_date.date_atr,bill_date.date_str) 0) 

{ 

print f ( "FATAL ERROR: Current billing date is equal to last billing date.\n")j 
errorjiandler I "bill_test .pc" , UNKNOWN, 

"Current bill_date • last bill date in switchjnarket table."); 

_exit(0); 

T 

compute_billdate_offsets (4bill_date, &of faet_display_date) ,- 
if ( (tod_desc_list • get_tod_desc_list (market) ) !• 
(struct tod_desc_struct MNULL) 

{ 

misc_mkt_chg ■ get_misc_mkt_chg (market , &todays_date> ; 
fyi_messages • get_fyi_not ices (market , 

&due_date , 

&of f set_dieplay_date , 
fcmarket rec.csh rcvd_date, 
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fctodaya_date ) ; 
if (fyi_meaaagea (struct fyi_notice_atruct *)NULL) 

( 

print f ( "FATAL ERROR: retreiving fyi raeaaage/late notices . \n" ) ; 
error_handler ( "bill_teat . pc" , UNKNOWN, 
•get fyi_noticea 0 returned fatal error."); 
_exit(0> ; 

)/• If fyi error fatal •/ 

if Ucat_liat • get_printjcat 0 ] 1- 
( struct p_category_atruct *)NULL) 

{ . 

printf ( "Going to get cust_list \n*); 
fflush(stdout) ; 

if ( (cust_info_list • ge t_cuat_l is t (market, fcbill_date, 

argv(9],argv[10j)> I- 

( struct cu8t_struct *)NULL) 

{ 

get joumal_summary (&journal_liflt) ; 
get_phone_sales { fcphone_sales_list , market ) ; 
get_phone_sales < &phone_sales_list , market , 

terap_bill_parama->ph_aales_jrnl_acct) ; 

if ( (phone_salea_liat_header ■ (phone_sales_liat_atruct •) 
ma Hoc (sizeof (phone_sales_liat_struct) ) ) 1 • 
(phone_sales_list_struct *) NULL) 

{ 

phone_sales_list_header->salea_ list • phone_sales_list ; 
strcpy (phone_aales_liat_header->titleText , •PHONE" ) ; 
phone_sales_liat_header_cur - phone_sales_liat_header; 
phone_salea_liat_header_cur->link - (phone_sales_li8t_struct *)NULL; 

/* get 'RE' codes list */ 

if ( (phone_sales_list_header_cur->link - 

(phone_sales_list_struct *) malloc (sizeof (phone_sales_list_struct) ) ) 

t- (phone_sales_list_struct *) NULL) 

{ 

phone_sales_list_header_cur - phone_sales_list_header_cur->link; 
strcpy (phone_sales_liat_header_cur->titleText, "EQUIPMENT") ; 
phone_sales_list_t*eac»er_cur- >link« (phone_sales_li.st_struct * ) NUTJ j; 
phone_salea_list_header_cur->sales_liat- 

(phone_sales_tot_struct MNULL; 
get_phone_sales(&(phone_sales_list_header_cur->sales_list) , market, temp_bill_params->equip_sales_jrnl_acct) ; 

} 

else 

{ 

errorjiandler ( "bill_test .pc" , UNKNOWN, 

"Malloc error for phone_sales_list_header. ") ; 

printf ("ERROR OCCURRED BUILDING PHONE SALES LISTAn"); 

} 

} 

else 

( 

error_handler ( "bill_test . pc ■ , UNKNOWN, 

"Malloc error for phone_sales_list_header . ") ; 

printf ("ERROR OCCURRED BUILDING PHONE SALES LISTAn"); 

} 



if ( (get_rev_list (&rev_list, market ) ) I- 0) 

{ 

error_handler ( ■ oil l_t est. pc" .UNKNOWN, 
"Can't make revenue by charge code list. "); 
printf ( "ERROR OCCURRED BUILDING REVENUE LISTAn*); 

} 
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traverse < *rev_liat ) ; 



/• aet the prorating to date aa bill date */ 
prorate_to_date - bill_date; 

/• initialize the report structures */ 

init bill_rpt t fcar_rpt_struct , 4as_rpt_struct , atas_rpt_struct , 
fcbilling_rpt_struct , k j s_rpt_struct , 
fcps_rpt_struct, itr_rpt_struct, 
fcchrg_rpt_struct , fccomv_rpt_struct , &bill_date, 
fcmarket_rec, super) ; 

/* open the report files only in sequential mode */ 
if ( (parallel) || (( (parallel) fcfr (( 
( (as_rpt_struct.rpt_f ile - 
f open ( aa_rpt_f ile , • w* ■ ) i I • NULL) ) 

" ( 

{ ( tas_rpt_struct . rpt_f ile - 
fopen(tas_rpt_f ile, ■«♦")> 1" NULL)) 

&fc ( 

( (js_rpt_struct.rpt_file - 
f open <js_rpt_f ile, •«♦■)) I- NOLL)) 

44 ( 

( (ps_rpt_struct.rpt_f ile - 
f open (ps_rpt_f ile, ■*♦■)) !- NOLL)) 

&& { 

( (tr_rpt_struct .rpt_f ile - 
fopen(tr_rpt_f ile, •*♦")) I- NOLL) ) 

&& { 

( (rev_rpt_struct.rpt_file • 
f open (rev_chg_rpt_f ile, •w+") ) 1 - NOLL)) 

44 ( 

( (billing_rpt_struct.rpt_f ile - 
f open (billing_rpt_f ile, •%#♦•)) I- NOLL)) 

44 ( 

( (comw_rpt_struct.rpt_file - 
f open <conw_rpt_f ile, ■%*♦■)) I- NULL))))) 

< 

/* open the ar report file IRregardless of parallel status */ 
if { ( (ar_rpt_struct .rpt_file - 

f open (ar_rpt_f ile, "*+•) ) NOLL) ) 

/• II ( 

* ( (comw_rpt_struct.rpt_file - 

• f open (comw_rpt_f ile, ■»*■) ) — NULL))) 
V 

{ 

error_handler ( "billet est" , FILEOPEN, 
■ar report files ■) ; 
error - TRUE; 

} /* else fopen report files error */ 

/* Set I/O buffer si2e for ar.rpt file */ 

setvbuf (ar_rpt_s true t.rpt_f ile, (char) NULL, _IOFBF, 102400) ; 

setvbuf {comv_rpt_struct.rpt_file, (char) NULL,_IOFBF, 102400) ,* 

/* create the toll and airtime list for the home marJcet •/ 

/* integrate into build market call list */ 

if ( lbuild_toll_airtime_liat (&toll_airtime_list, 

market_rec .market_sid, 
market rec . market_name ) ) 
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{ 

init_noncall_totala (fctotal_non_call_totala) ; 
init_call_totala <4total_call_totala) ; 
init_call_totala (itotal_roamer_totala) ; 
init_dunning_atata (fcdunning_atatejidr,idunning_atats) ; 

while (I error fcfc 

cust_info_list ~1- (struct cust_struct *)NULL) 

{ 

seg_perf . acct_ccunt+* ; 

memcpy (aeg_perf . laat_account , 

cust_inf o_list- >acct_nr , 

aizeof (cust_info_list->acct_nr) ) ; 

mark_time < 0 , mark_titne_arr, 1) ; 

/• get the associated bill info record */ 
if ( !get_bill_info<fcbill_info_rec, 

cuat_info_list->acct_nr> ) 

{ 

/♦ get the current charges record */ 

if (I get_current_charges ( tcur_charge_list . 

cust_inf o — list - >acct_nr , 
4bill_info_rec) I 

{ 



procesaing_aggregate - FALSE; 

do 

{ 

seg_perf . bill_count+* ; 

memcpy ( seg_perf . laat_cuat , 

cust_inf o_list - >cust_nr , 
sizeof (cust_info_list->cust_nr) I ; 
printf ("CUSTOMER # %-10.10s ACCT * %-10 . 10s\n" , cust_inf o_list->cust_nr, 
cust_info_list->acct_nr) ; 

memcpy(bill_info_rec.bill_categoriea, "00000000" , 8) ; 

taxer - >f reeTaxList ( fctotals . noncall_tax) ; 

taxer - > f reeTaxList < fctotals . payment_ad j _tax) ; 

taxer- >f reeTaxLiat (fctotals .home_adj_tax) ; 

taxer ->f reeTaxList (fctotals . foreign_adj_tax) ; 

taxer- >f reeTaxList (&totals .payment_taxes) ; 

taxer- >f reeTaxList (itotals .home _t axes) ; 

taxer- >f reeTaxList (&totals . f o re ign_ taxes) ; 

taxer- >f reeTaxList < fccurrent_charge_totals .noncall_tax) ; 

taxer- >f reeTaxList ( fccurrent_charge_totals . payment_adj_tax> 

taxer- >f reeTaxList ( fccurrent_charge_totals .home_adj_tax) ; 

taxer- >f reeTaxList ( fccurrent_charge_totals . f oreign_adj_tax) 

taxer- >f reeTaxList (tcurrent_charge_totals.payment — taxes) ; 

taxer- >f reeTaxList (4current_charge_totals .home_caxes ) ; 

taxer - >f reeTaxList (&curxent_charge_totals . f oreign_taxes ) ; 

init_noncall_totals (itotals) ; 

init_noncall_totals (fccurrent_charge_totals) ; 

init_tax_rec (fctotals .noncall_tax) 
if (totals. noncall_tax !- (struct vtax *)NULL) 
taxer- >f reeTaxList (& totals .noncall^tax) ; 
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/• load dace display variables */ 
load_date (aprorate_f rom_date, 

cuat_inf o_list->activation_date) ; 
load_date { fcaetivation_date , 

cuat_info_list->activation_date) ; 
load_date (*deactivation_date, 

cuat_inf o_liat - >deactivation_date) ; 
load_date ( fcauapend_date , cuat_inf o_liat- >auapend_date) ; 
/* build the call related totala list */ 
if ( (market_call_list • 

build_market_call_liat (amar)cet_rec) ) 1 - 
(struct market_call_atruct *)MULL) 

( 

/* if the customer element is a master aggregate */ 
/• reserve it to process after individual accounts */ 
if (cust_info_liat->aggr -- AGGR£GATE_MASTER) 

{ 

/* the first time through aet up aggregates •/ 
if (processing_aggregate FALSE) 
( 

master_aggregate_ptr - cust_inf o_list ; 
/• point to the first sub account */ 
processing_aggregate - TRUE; 

/• build the aggregate totals list */ 
build_aggr_totals_list (fcaggregate_totals , 

raaster_aggregate_ptr- >cust_nr. 

cuat_info_liat) ; 

/* retrieve calls for. each aggregate account */ 

mark_t ime < 2 , mark_time_arr , 1 ) ; 

ret_aggr_call_inf o ( aggregate_totals - > link , 
cust_inf o_liat - > link , 
market_rec . market_sid , 
&bill_date, 

fc(bill_info_rec.detail_sort_cd) J ; 

mark_time (2 , mark_time_arr , 2 ) ; 

calculate_f ree_aggr_airtime (aggregate_totals , 
cust_inf o_list , 
&bill_inf o_rec , 
rate_plan_list , 
&prorate_to_date . 
&market_rec.bill_date, 
&period_date , 

raarket_rec . init_pay_type , fcplan) ; 

/* point to the first aggregate, if one exists. */ 
if (aggregate_totals->link !• 

(struct aggregate_struct *) NULL) 
aggregate_totals_start - aggregate_totals->link; 
else 

aggregate_totals_start - aggregate_totals ; 

/• get the data for billing the first */ 
/* subordinate from the aggregate list */ 
market_call_list->call_list * 

aggregate_totals_start - >call_list ; 

market_call_list->alt_call_list - 

aggregate_totals_start - >alt_call_list ; 

/* copy the aggregate rate plan to current rate */ 
/* plan record */ 
copy_rate_plan ( 

&aggregate_totals_start - >rate_plan_rec , 
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aeustomer_rate_plan) ; 

/* if this aggregate master has no subordinates •/ 
/* set processing aggregate flag to FALSE and */ 
/* process only the aggregate master */ 
if (memcmp <cuat_info_liat->acct_nr, 

cuat_info_liat->link->acct_nr, 10) ) 

( 

cust_info_liat - master_aggregate_ptr,* 
process ing_aggregate - FALSE; 
} /* if only master aggregate */ 
else 

cust_info_list • cust_info_list->link; 
) /• if processing aggregatge - FALSE */ 
/* process the master aggregate last */ 
else 

{ 

/• total the subordinate charges into the •/ 

/• totals record for this aggregate account */ 

totals . subordinate_home - 
aggregate_totals - >aggrega te_totals . subordinate_home ; 

totals . subordinate^ oreign • 
aggregate_totala- >aggregate_totals . subordinate_f oreign; 

/* point back to the start of aggregate list •/ 
aggregate_totals_start - aggregate^ otala ; 
/* total the subordinate account charges */ 
*market_call_liat->call_list • 

(struct call_struct *)NCLL; 
market_call_list->alt_call_list - 
(struct call_s tract *)NULL; 
/* copy the aggregate rate plan to current rate */ 
/• plan record */ 
copy_rate_plan ( 

&aggregate_totals_start- >rate_plan_rec , 
&customer_rate_plan) ; 
process ing_aggregate - FALSE; 
} /* else processing aggregate - TRUE */ 
} /* if roaster aggregate */ 
else if (cust_info_list->aggr 

AGGR£GATE_SUBOFD I NATE ) 

( 

/* get the data for billing the subordinate from */ 
/* the aggregate list */ 
market_call_list->call_list • 

aggregate_totals_start- >call_list ; 

market_call_list->alt_call_list - 

aggregate_totals_start->alt_call_list; 
/* copy the aggregate rate plan to current rate */ 
/* plan record */ 
copy_rate_plan ( 

taggregate_totals_start - >rate_plan_rec , 
&customer_rate_plan) ; 
} /* if aggregate subordinate */ 
else 
{ 

maritime ( 2 , mark_time_arr , 1 ) ; 

market_call_list->call_list - 

ret_call_inf o (cust_inf o_list - >cuat_nr , 
market_rec . marke t_s id , 
&prorate_f rom_date , &bill_date , 
&(bill_info_rec.detail_sort_cd) , 
&<market_caii_|.ist->alt_call_list) ) 
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mark_t ime ( 2 , mark_tirae_arr , 2 ) ; 

if { iget_cuat_rate_plan(fcbill_info_rec, 
rate_plan_liat , 
cuat_inf o_li8t - >cust_status , 
cuat_inf o_liat - >cuat_nr , 
4cuj tomer_ra t e_p lan , 
**prorate_f rom_date , 
fcprorate_to_date, 
fcmarket_rec ,bill_date , 
iactivation_date , 
frdeaetivation_date , 
fcauspend_date, 
4period_date , 

market_call_list->call_list, 
market_rec.init _pay_type , 
cust_inf o_liat - >nrjprorated_daya ) ) 

{ 

error_handler("bill_teaf .UNKNOWN, "no rate plan"); 
error - TRUE; 
) /• no race plan */ 
) /* non aggregate */ 



taxer- >getCuatExetnptiona ( fcexemption_list , 

cuat_info_liat->cuat_nr) ; 
printffJust Returned Prom getCuatExempta for"); 
printf(" account number %10.10a\n", 
cuat info_list->cust_nr) ; 



/* get the previous charge */ 

totala.previouajbalance - bill_info_rec . current_chges ; 

/• get any A/R records or any adjuatmenta */ 
mark_time ( 1 , mark_t ime_arr , 1 > ; 

ar_list - get_ar_info (cuat_info_list->cuat_nr, 

itotal_non_call_totala . 

4bill_date> ; 

adjuatment_list * 

get_adj_in£o(cust_info_list->cust_nr, 
market_rec . market , 
tbill_date. 
cat_liat , 
&bill_info_rec) ; 



taxer ->calcTax (adjustment _list , exempt ion_list , 
bill_date.date_str, 
cust_in£o_list - >geo_code , 
bill_irif o_rec . service_claaa , 
cuat_inf o_list - >cust_nr , 
cust_info_li3t->city_resident) ; 
taxer- >buildTaxRegister (adjustment_list, 
&tax_register, 
cuat_inf o_list->geo_code) ; 

calc_ar_adj (ar_list , adjustment_list , &total8, 

cat_list, joumal_liat , &collect_adj_list, 
super) ; 
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maritime ( 1 , marx_time_arr .2) ; 

/• account balance for aggregates is 0 */ 

if {cuat_inro_liat->aggr AGGREGATE_SUBORD INATE > 

{ 

totals . previoua_balance - OL; 

totals. unpaid - OL; 

) 

else 

totals . unpaid - totals.previoufl_balance - 

totals . payments ; 

/* calculate the rate plan charges - if any */ 

if (customer_rate_plan.rate_plan_id(01 I- (char) NULL) 

( 

taxer- >calcTax (tcustomer_rate_plan, 

exempt ion_list , bi Update . date_str , 
cus t_info_l ist - >geo_code . 
bill_info_rec.aervice_class, 
cust_info_list - >cust_nr , 
cust_info_list->city_resident) ; 
taxer - >buildTaxRegiater Ucustomer_rate_plan, 
frtax_register, 
cust_info_list->geo_code> ; 

calc_rate_plan_charges (fccuatomer_rate_plan, fctotals, 
journal_liat) ; 

} 

/* calculate the recurring charge totals and debit */ 
/* the recurring charge balance - i£ appropriate */ 
/* NOTE: prorate from date is the activation date */ 
printffBT no_active_days - %d\n",customer_rate - plan.no_active_days) ; 



recur_list - 

ge t_recur_charges t cus t_info_list - >cus t_nr , 
cust_inf o_list - >aggr , 
&prorate_f rom_date , 
&prorate_to__date , 
&bill_date. 

&raarket_rec . bill_date , 
&deactivation_date , 
&suspend_date, 
&act ivat ion_dat e , 
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market_rec . market , 

cuat_inf o_liat - >cuat_atatua , 

market_ree.init _pay_type, 

cuatomer^ate^plan . no_active_daya , 

cat_liat, 

*bill_inf o_rec , 

cuat J.nf o_U«t->nr_prorated_daya , 
mlsc_mkt_chg , 
market_rec . switch_name, 
cust_inf o_liat - >mobile_nr , 
super) ; 



if (recur_list I- (struct recur_atruct *)NULL) 



taxer- >calcTax (recur_list . exempt ion_list , 
bill_date . date_atr , 
cust_inio_liBt->geo_code, 
bill_inf o_rec . aervice_claaa , 
cuat_info_liat->cust_nr, 
cuat_info_list->city_resident> ; 
taxer- >buildTaxRegieter (recur_liat , 

fctax_regiater, 
cuat_info_liat->geo_code) ; 
calc_recur_chargea (recur_list , fctotals , 
journal^list) ; 

} /* if recur_liat */ 

/* calculate the nonrecurring charge totals */ 
nonrecur^liat • 

get_nonrecur_chargea (cust_inf o_list- >cust_nr , 

market_rec .market , 

&bill_date, 

cat_list, 

&bill_info_rec) ; 
if (nonrecur_liat I- (struct non_recur_struct *)NULL) 
{ 



taxer- >calcTax (nonrecur_liat , exempt ion_l is t , 
bill_date.date_str. 
cuat_inf o_list- >geo_code , 
bill_inf o_rec . service_class , 
cust_inf o_list- >cust_nr, 
cuat_inf o_list - >city_resident ) ; 
taxer- >buildTaxRegister (nonrecur_list , 
&tax_register, 
cust^info_list->geo^code) ; 
' calc_nonrecur_chargea (nonrecur_list , ^totals , 
journal_list) 

) /* if nonrecur_list */ 

/* calculate the air time charges */ 

mark_time ( 3 , mark_time_arr, 1) ; 

/* don't calculate airtime charges or roamer */ 

/* charges for master aggregates */ 

if (cust_inxo_list->aggr !« AGGR£GATE_MASTER) 

{ 

If <cuscotner_rate_plan.rate_plan_id[01 !• 

(char) HULL) 

{ 
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taxable_calla - (call_atruct •>HULL; 

market_call_liat->airtime_tot - 

calc_call_enarges (4cuatomer_rate_plan, 

raarket_call_liat - >call_list , 
fctotals, 

imarket_call_liat->call_totala ( 
fcraarket_rec , 
toll_airtime_list, 
journal_list, 

cxiat_in£o_list->cuat_atatufl, 
apian , fcbi 1 l_info_rec , 
4taxable_calla, 
free_number_ptr> ; 

taxer- >calcTax (taxable_cal la , exempt ion^list, bill_date . da te_str, 

cust_info_list- >geo_code,bill_inf o_rec . service_claaa , 
cust_inf o_list->cuat_nr, cuat_inf o_list- >city_reaident) ; 
taxer- >buildTaxRegister ( taxable_calla , fctax_register , 

cust_info_list->geo_code) ; 
taxer- >summarizeTax ( taxable_calls , nnarket_call_list - >call_totals . air_tax, 

fcmarket_call_liat - >call_totals . land_tax) ; 
// this assumes that the taxable calls has local, intra and inter calls 
//in that order. 

taxer - >summar izeTax ( taxable_calla , 

fctoll_airtime_liat->airtime_taxtMAX_RQAMER_TypES] ,NULL) ; 
call_struct *iter - taxable_calla ; 

taxer- >addTax{&toll_airtime_liat->local_acceaa_tax ( MAX_RQAMER_TYPES ] , 

iter- > land-tax) ; 
iter • iter->link; 

taxer- >addTax <&toll_airtirae_list-> intra* tate_tax (MAX_ROAMER_TYPES) , 

iter->land_tax) ; 
iter • iter- > link; 

taxer- >addTax {fctoll_airtime_list->interstate_tax [MAX_RQAMER_TYPES J , 
iter->land_tax) ; 

/* update airtime and tax data to call_info */ 

) 

mark_t ime ( 3 , market ime_arr , 2 ) ; 

/* retrieve all roamer call records */ 
/* NOTE: prorate from date is activation date */ 
if ( tret_roamer_info(cuat_info_list->cust_nr, 
raarket_call_list , 
raarket_rec.raarket_sid, 
cust_info_list->activation_date, 
ibill_date, 
toll_airtime_list , 
fc<bill_info_rec.detail_sort_cd) ) ) 



for (market_call_struct *mc_iter - market_call_liat->link; mc_iter; 
mc_iter - mc_iter->link) 

{ 

taxer- >calcTax (mc_iter- >call_list , exempt ion_lis t , bill_date . date_str , 
cust_inf o_list - >geo_code , bill_inf o_rec . service_class , 
cust_inf o_list->cust_nr , cust_inf o_list->city_resident) ; 

taxer- >buildTaxRegister(mc_iter->call_liat,4tax_register, 
cust_info_list->geo_code) ; 

) 

calc_roaraer_charges (market_call_liat , fctotals , 
toll_airtime_list) ; 
} /* if not master aggregate */ 
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/• total all charges by category •/ 
total_charges ( fctotals , market_call_l iat ) ; 

/• set the detailed billing flag •/ 

detailjcey <*bill_inf o_rec, recur_liat ) ; 

/* if there are no current or unpaid charges */ 

/* then do not print a bill - flag the customer */ 

/* as having "ho current or unpaid charges •/ 

/• print the bill */ 

maritime (4 , mark_time_arr , 1 ) ; 

/* change to use f reopen for subsequent opens */ 
if ( ( (lreopen_flagi kk 

((tpfp - fopen(print_tmp_fn, "w*M ) !• NULL) kk 
( (tbdfp ■ fopen(bill_image_tmp_fn, "w+") ) I- NULL}) 
II 

((tpfp - f reopen ( pr int_tmp_f n, tpfp) ) I- NULL) kk 
((tbdfp • f reopen (bill_image_tmp_fn, tbdfp) ) I ■ NULL) ) 

f 

reopen_f lag-TRUE ; 

setvbuf (tpfp, pfile_buf_tmp,_IOFBF. 153600) ; 
setvbuf (tbdfp, bfile_buf_tmp,_IOFBF, 153600) ; 
init_bill(fcbp,80,66,tpfp) ; 
init_bill(fcdbp,80, 66, tbdfp) ; 

/* collect dunning information applicable. */ 

get_dunning_data ( &market_rec . bill^date . 

cust_info_list, 
&bill_info_rec, 
4dunning_cuat , 
4cur_charge_l ist , 
fctotals , 

fccollect_adj_list , 
*customer_rate _plan, 
ddl_list. 
&todays_date, 
super) ; 

if ( (cust_info_list->aggr !- AGGREGATE_SUBORD INATE ) kk 
(cust_info_list->aggr 1- WALK_IN> ) 

{ 

switch (dunning_cust . treatment_notice> 

{ ~ ~ 

case NO_TREATMENT : 

print f ( "NO TR£ATMENT\n" ) ; 

/* Compute balance anyway but won't get notice. (print_bi 11 handles that) */ 

standardDunning < &dunning_cust , 

marfcet_rec.leeway_amount) ; 

break ; 
case STANDARD_TREAT : 

printf CSTANDARDNn") ; 

/* Use standard treatment algorithm. */ 

standardDunning ( &dunning_cust , 

market_rec . leeway_amount ) ; 

break; 
case SPECIAL JTREAT : 

printf ("SPECIALNn") ; 

/* Use corporate treatment algorithm. */ 

specialDunning ( &dunning_cust , 

market_rec. leeway_amount) ; 

break ; 
case DEAL_TREAT : 

printf ("DEALNnM ; 

/• Use corporate treatment algorithm. */ 

dealDunning ( &dunning_cust , 

market_rec . leeway_amount ) ; 
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break; 
case BAD_DEAL_TR£AT : 

printf ( "BAD_DEAlAn" ) ; 

/* Use corporate treatment algorithm. */ 

baddealOunning ( idunning_cust , 

market_xec . leeway_araount ) ; 

break; 
default : " 

printft "DEFAULTS" >; 

/* This may happen given our screwy data aecurity. So log and fix aa needed. */ 

error_handler { "bill_test " , UNKNOWN, 
•Undefined dunning treatment code"); 
error - TRUE; 

break; /• Juat for the hell of it. */ 
) /"Balance baaed on account's treatment code*/ 

printf ("PAST DUE Account ■ %10.10s past due - %ld notice level • %c\n", 
dunning_cust . acct_nr , 
dunning_cust . pas t_due_ba lance , 
dunning_cust ,notice_level) ; 

/• catalog dunning action in statistics record. */ 

acc_dunning_stata ( adunn i ng_cua t 

tdunning_stats_hdr . 
adunning_atats ) ; 

/• Calculate a latefee */ 

// 



late_fee_struct Ifs; 

If s. market - fcmarket_rec; 
ifs.cust_info_list - cust_info_list; 



lfs.dunning_cust - adunnxng_cuat ; 
Ifs. fail l_info_rec - &bill_info_rec ; 
lfs.cur_charge_list - cur_charge_liat ; 
lfs.adjustment_list - &adjustment_list ; 
lfs.collect_adj_li8t - &collect_adj_list ; 
If s. totals - &totals; 
1 f s . todays_date - &todays_date ; 
If s. latefee date - -latef ee_date ; 



lfs.cat_list - cat_lisfc; 
lfs.ddl_list - ddl_list; 
lfs. jrnl_list - j ournal_liat ; 
Ifs. exempt ions « exempt ion_l 1st ; 
// * **** 

if (calc_latef ee (-If s , super) ) 

{ 

errorjiandler ( "bill_test ■ , UNKNOWN, 
"Error calculating late fee. "It- 
error - TRUE; 

} 

else 

{ 

/* Check for dunning exceptions */ 

if (dunning_cust.notice_level I- FYI_MESSAGE ) 

{ 

if (dunning_cuat.notice_level ERROR_NOTICE) 

{ 
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error_handler ( "bill_test • , UNKNOWN, 
•Undefined notice level in bill_info") ; 
error - TRUE; 

}/♦ Fatal error invalid notice •/ 
else 

{ 

dunning Jexcept ion ( _dunning_cuat , 

tdunning_exception_list , 
idunning_stats_hdr) ; 

if ( I commentLevels < fcdunning_cuat , 
_bill_date, 
&todays_date, 
market_rec . market * 
super) ) 

{ 

errorjiandler < "bill_test • , UNKNOWN, 
"Error inserting late notice comment.") 
error « TRUE; 
} 

}/* else no error notice */ 
}/* fyi's don't count here */ 
}/* else no error latefee */ 

if (update Jbill_inf o ( ibill_date , fcdunning_cuat , 
bill_info_rec.rowid) ) 

{ 

error_handler ( "bill_test ■ , UNKNOWN, 

"Error updating aged_analysis in bill_info") ; 

error - TRUE; 

} 

}/* Aggregates subordinates don't have balances*/ 
else 

{ 

dunning_cust.notice_level ■ FYI — MESSAGE ; 
}/* Give subordinates FYI •/ 

// * 

print_bill_struct pbs; 
pbs . cust_inf o_rec « cust_info_list; 
pbs.market_call_list - market_call_list; 
pbs. totals - -totals; 
pbs . recur_list - recur_liat; 
pbs.nonrecur_list - nonrecur_list; 
pbs.ar_list • ar_list; 
pbs.adjustment_list ■ adjustment_list ; 
pbs.mkt_rec • &mar)cet_rec ; 
pb3.bill_info_rec - &bill_info_rec; 
pbs.rate_plan_rec - _cuatbmer_rate _plan; 
pbs.tod_desc_list - tod_desc_list ; 
pbs . f yijnessages - f yi_mes sages ; 

pbs.airtime_tod_totals • mar)tet_call_li8t->airtime_tot; 

pbs . rate_plan_prorate - customer_rate_plan.sc _pro_rate; 

pbs . aggregate_totals - aggregate_totals_start ; 

pbs . display_date « fcbill_date; 

pbs . period_display_date - &period_date; 

pbs.offset_display_date - &of f set_display_date ; 

pbs.due_date - &due_date; 

pbs. bp - &bp; 

pbs.dbp - idbp; 

pbs.cat_list • cat_list; 
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pba.airtime_detail_atart - fcairtime_detail_atart ; 
pba . todays_date - 4todays_date; 
pba . dunning_cuat - fcdunning_cust ; 
// 

if (print_bill Upba, auper) > 

{ 

error_handlert "bill_teat " , UNKNOWN. 

"printing bill") ; 

error - TRUE; 

} /• if print JbiU */ 



if ( (cuat_info_liat->aggr )« ASGREGATE_MASTER) fcfc 
{cuat_info_list->aggr I - WALK_IN) ) 

/* See if this ia a zero bill customer •/ 
if (cuat_info_liat->aggr I- KAUC_IN) 

< 

aend_bill • check_ieroJt>ill ( fcdunning_cuat , 
cuat_inf o_list , 
fcdunning_atata_hdr , 
4totala ( 

raarket_call_liat , 
fcxerojBill.liat, 
icolleet_adj_liat. 
bill_inf o.rec . pull_bill , 
auper) ; 

} 

else 

aend_bill - TRUE; 

) 

/* Get number of pagea generated for this bill •/ 
if (sendjsill) 

dunning_stat8_hdr.bill_pages 
(bp.page_count + dJbp . page_count ) * 
bill_inf o_rec .bill_copies ; 

build_bill_detail (market. cust_info_list. 

&bill_date , airtime_detail_start . 
&bill_inf o_rec , pf p , bdfp , &bp , 
fcdbp,aend_bill, 
fcdunning_atata_hdr> ; 

/• close the print filea •/ 
f close (tpfp) ; 
f close (tbdfp); 
) /* fopen or f reopen.*/ 
else 

{ 

printf ( "error opening bill print files\n"); 

error - TRUE; 

} /* fopen error */ 



market ime { 4 , market ime_arr ,2) ; 

/* build the commisaion_waivers report line */ 

mark_t ime ( 6 , mark_time_arr , 1 ) ; 

build_conw_rpt ( fccotnw_rpt , 

&cotnv_rpt_s cruet , 
ad justment_list , 
cuat^inf o_liat , 
exempt ion_liat , 

&comw_list f 

todaya_date . date_atr . 
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bill_inf o_rec . service_class , 
fccomw_aat_totals , 
frComw_f ed_totals 
4cotnv_state_totala , 
fccomw_county_totala , 
fccomw_loc_totals , 

parallel) 

ttif 0 



/* accumulate phone sales report */ 
acc_phone_ealea (phone_sales_list, recur_list, 

nonrecur_list , cust_inf o_list ) ; 

«endif 

phone_sales_list_header_cur - phone_sales_list_header; 
acc_phone_salea (phone_aales_liat_header_cur- >aales_list , 

recur_list, 

nonrecur_liat , 

cuat_inf o_list , 

temp_bill _paratna - >ph_sales_j rnl_acct } ; 
phone_sales_list_header_cur - phone_aalea_list_header_cur->link; 
acc_phone_salea (phone_aales < _list_header_cur- >sales_list , 

recur_list, 

nonrecur_liat, 

cust_inf o_list , 

terap_bill_params - >equip_sales_j rnl_acct ) ; 



/* Get copy of charge totals record for current 
charges table update */ 

add_totals {ttotals, acurrent_charge_totals ) ; 

/* accumulate revenue by charge report */ 

acc_rev_chg (fcrev^list , fcrecur_list , 
fcnonrecur_list , fcbill_inf o_rec , 
totals. monthly_acceaa> ; 

/* accumulate the airtime summary report totals */ 
if (cusnomer_rate_plan.rate_plan_idtO] I • (char) NULL) 
if ( acc_airt ime_summary ( airt ime_summary , 

market_call_list - >airtime_tot , 
customer_rate_plan . rate_plan_id, 
totals . monthly_acces s ) ) 

{ 

printf ( "airtime summary report error \n" ) 
} /* else ace_airtirae_aummary error */ 

mark_time(6,mark_time_arr,2) ; 

market ime ( 7 , market ime_arr , 1 ) ; 

/* update summary of cust activity */ 
upd_suraraary_list ( 
cust_inf o_list - >cust_nr , 
market , 

market_call_list , 
fctotals, 

bill_data.date_str) ; 

mark_t ime ( 7 , mark_t irae_arr , 2 ) ; 

memcpy (prev_acct_nr, cust_inf o_list - >acct_nr , 10 ) ; 

/* total the aggregate accounts */ 

if ( cust_inf o_list - >aggr — AGGR£GATE_SUBORDINATE ) 

{ 

/* copy the aggregate totals data into the */ 
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/* aggregate totals liat */ 
a dd_ totals (atotals, 

fcaggregate_totala_start - »aggregate_totala ) ; 
add_call_totala ( fcraarket_call_liat - >call_totala , 

fcaggregate_totals_start- >aggregate_call_totals) ; 
total_sub_aggr (aggregate_totals , 

aggregate_totals_start , 
market_call_list) ; 
aggregate_totals_start • 

aggrega te_totals_s tart -> link; 
cuat_info_list - cust_info_list->link; 
) /* if aggregate subordinate */ 
/• total all the subordinate charges for the */ 
/* current master account, this will allow */ 
/* correct reporting based on account number •/ 
else if (cust_info_list->aggr — AGGREGATE_MASTER ) 
{ 

/• pass the head of the aggregate list */ 
total ^aggregate (aggregate_totals_start, fctotals, 

fcmarket_call_list->call_totala) ; 
} /* if master aggregate */ 

/* if this is the last aggregate then process the */ 
/* master aggregate last •/ 
if ( process ing_aggregate fca 

memcmp (prev_acct_nr, cuat_inf o_list - >acct_nr . 10) ) 
cust_info_list - master_aggregate _ptr; 

} /* if build_market_call_list */ 
else 

{ 

error_handler ( "bill_test ■ , UNKNOWN, 

•building market call list"); 

error ■ TRUE; 

) /* else build_market_call_list error */ 

/* update the number of prorated days 

i f (updat e_nr_prorated_days ( cust_info_list - >cus t_nr ) ) 

{ 

error Jiandler ( "bill_test " , UNKNOWN, 

■update nr prorated days") ; 

error - TRUE; 

) if update nr prorated days */ 



if ( (process ing_aggregate) && t cust_inf o_list->aggr !• AGGREGATE_MASTER) ) 

{ 

/* call related charges */ 
while (market_call_list ! - 

(struct market_call_struct *)NULL) 

{ 

/* free the subordinate lists */ 
/* call list */ 

while (market_call_list->call_list I- 
( struct call_struct *)NULL) 

{ 

taxer->freeTaxList ( 

&market_call_list- >call_list - >air_tax) ; 
taxer->f reeTaxList ( 

&market_call_list->call_list-> land-tax) ; 
temp_list_start • 

(char • ) market_call_list- >call_list->link; 
free( (char •) raarket_call_list->call_list) ; 
market_call_list->call_list - 

(struct call_struct *) temp_ list _st art ; 
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} /* while elements in list •/ 



/* Pree call taxes */ 
taxer->f reeTaxList ( 

imarket_call_list- >call_totals . air_tax) ; 
taxer- >f reeTaxList ( 

fcmarket_call_liat->call_totals. land_taxi ; 
/* airtirae totals */ 

while (market_call_list->airtime_tot l- 
(struct airtime_totals •)NOLL) 

{ 

temp_list_start - 

(char * ) market_call_liat- >airtime_tot- >linx ; 
free( (char •)market_call_list->airtime_tot) ; 
market_call_list->airtime_tot • 

(struct airtime_totals *) temp_list_start; 
} /* while elements in list */ 

temp_list_start • (char *)market_call - list->link; 
free ( (char •)mar)cet_call_list) ; 
market_call_list - 

(struct market_call_atruct * ) temp_list_start ; 
} /* while elements in list */ 



/* pree taxable calls list */ 
while ( taxable_calls I - 

(struct call_struct *)NULL) 

{ 

taxer->f reeTaxList Utaxable_calls->air_tax) ; 
taxer->£reeTaxList (&taxable_calls->land_tax) ; 
temp_list_start - 

(char *) taxable_calls->linx; 
delete taxable_calls ; 
taxable_calls - 

(struct call_struct *) terap_list_start; 
} /* while elements in list */ 

/* recurring charges */ 

while (recur_list t - (struct recur_struct *)NULL) 

{ 

temp_list_start - (char *) recur_list->linx; 
taxer- >f reeTaxList (fcrecur_list->tax) ; 
free ( (char •) recur_list) ; 

recur_list « (struct recur_struct •) temp_list_start; 
} /* while elements in list */ 

/* nonrecurring charges */ 

while (nonrecur_list 1* (struct non_recur_struct *)NULL) 

{ 

temp_list_start - (char *)nonrecur_liat->link; 
taxer- >f reeTaxList (&nonrecur_list->tax) ; 
free ((char *>nonrecur_list) ; 
nonrecur_list - 

(struct non_recur_struct •) temp_list_start ; 
} /* while elements in list */ 

} /* if processing_aggregate */ 



/* tax exemptions */ 

if (exemption_list 1- (struct exemption_info *)NULL) 

{ 

taxer->freeExemptionList (&exemption_list) ; 
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} 

} while (1 error kk process ing_aggregate) ; 

/• build the AR report line */ 
build_ar_rpt (fcar_rpt_atruct , cust_inf o_liat , 

fcbill_inf o_rec , fctotala , 

market_call_liat) ; 

/* build the customer detail report •/ 



/* total market call and non call totals */ 
total_totals ( itotal_non_call_totals , 

fctotal_call_totala , 

fctotal_roamer_totals , 

itotals, 

market_call_list) ; 

/* add any unpaid charges or credit to the •/ 
/* current charge and update the billing table*/ 

if (bill_commit kk update_current_charges ( cust_inf o_list , 
cur_charge_list , 
&current_charge_totala , 
bill jiate . date_str , *collect_ad j_list ) ) 

{ 

errorjiandler < "bill_test " , UNKNOWN, 

"updating charge bill"); 

error - TRUE; 

} /* if error update current charge •/ 
} /* if get current charges •/ 

} /* if get_bill_info */ 
else 

{ 

errorjiandler ( "bill_test" , UNKNOWN, 

"getting bill info"); 

error - TRUE; 

} /* else get_bill_info error */ 

if t lbill_commit) 
{ 

EXEC SQL ROLLBACK; 

} 

else if (terror) 
( 

EXEC SQL COMMIT; 
} 

/* free the customer associated linked lists */ 
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/• pxee aggregate totals list */ 
aggregate_cotals - aggregate_totala_start; 
while <aggregate_totala i- 

( struct aggregate_atruct *)NULL) 

{ 

taxer- >f reeTaxLiat ( 

taggregate_totals->aggregate_totala .noncall_tax) ; 
taxer- >f reeTaxLiat ( 

fcaggregate_totala->aggregate_totala .payment_adj_tax) ; 
taxer ->f reeTaxLiat ( 

fcaggregate_totala->aggregate_totals .home_adj_tax) ; 
taxer- >f reeTaxLiat ( 

&aggregate_totala->aggregate_totals .foreign_adj_tax) ; 
taxer- >f reeTaxLiat ( 

taggregate_totals->aggregate_call_totals .air_tax) ; 
taxer- >£ reeTaxLiat ( 

iaggregate_totala->aggregate_call_totala . land_tax) ; 

aggregate_totals_start - aggregate_totals->link; 
free ( (char * ) aggregate_totals ) ; 
aggregate_totals - aggregate_totals_start ; 
)/* while aggregate struct nodes */ 

/* free rate plan taxes */ 

taxer- >f reeTaxList (&customer_rate_plan. tax) ; 

/* Free taxable calls list */ 
while (taxable_calls 1 - 

(struct cal Instruct *)NULL) 

{ 

taxer- >f reeTaxList (fctaxable_calls->air_tax) ; 
taxer- >f reeTaxList (fctaxable_calls->land_tax) ; 
temp_liat_start • 

(char *)taxable_calls->link; 
delete taxable^calls; 
taxable_calla • 

(struct call_struct *) terap_list_start; 
} /* while elements in list */ 

/* current charges */ 
while (cur_charge_list 1 - 

(struct cur_charge_struct * ) NULL) 

{ 

temp_list_start - (char * ) cur_charge_list - >link ; 
f ree ( ( char * ) cur_eharge_l i s t ) ; 
cur_charge_list - 

(struct cur_charge_struct *> temp_liat_start; 
} /* while elements in list */ 

/• ar */ 

while (ar list !- (struct ar_struct MNULL) 
{ 

temp_list_start - (char *) ar_list->link; 
free((char *)ar_list>; 

ar_list • (struct ar_struct *) temp_list_start ; 
} /* while elements in list */ 

/* adjustment list copy */ 
while (collect_adj_list l- 

( struct collect_adj_struct *)NULL) 

{ 

temp_list_start - (char •) collected j_list->link; 
free ( (char • ) collect_adj_list) ; 
collect_adj_list - 
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(struct collected j_atruct *> temp_liat_atart; 
) /• while elements in list •/ 

/* adjustments •/ 

while (adjustment_liat I • 

(struct adjust mentis truct *)NULL) 

{ 

terap_list_start (char *>adjuatment_list->link; 
taxer->f reeTaxLiat (*adjuatment_list->tax> ; 
free ((char *)adjuatraent_list) ; 
adjustment_list - 

(struct adjuatment_struct *) tercp_list_start; 
) /* while elements in list */ 

/* recurring charges •/ 

while (recur_list t • (struct recur_struct *)NULLJ 
< 

temp_liat_atart - (char *) recur_list->link; 
taxer->freeTaxList (arecur_liat->tax) ; 
free ( (char *) recur_list) ; 

recur_list - (struct recur_struct *) temp_list_start; 
} /* while elements in list */ 

/* nonrecurring charges */ 

while (nonrecur_list I- (struct non_recur_struct *)NULL) 

{ 

temp_list_start - (char *)nonrecur_list->link; 
taxer->freeTaxList (&nonrecur_list->tax) ; 
free { ( char * ) nonrecur_liat ) ; 
nonrecur_list - 

(struct non_recur_struct *) temp_list_start; 
} /* while elements in list •/ 

/* call related charges */ 
while (raarket_call_list 1- 

(struct market_call_struct *)NULL) 

{ ~ 
/* free the subordinate lists */ 
/* call list */ 

while (market_call_list->call_list 1- 
( struct call_struct *)NULL) 

< 

taxer->freeTaxList ( 

4market_call_list- >call_list->air_tax) ; 
taxer->freeTaxList ( 

&market_call_list - >call_list- >land_tax) ; 
temp_list_start - 

( char * ) market_call_list - >call_list- >link ; 
free ( (char *)market_call_list->call_liat) ; 
market_call_liat->call_list » 

(struct call_struct *) temp_list_start; 
) /* while elements in list •/ 

/* Free call taxes */ 
taxer->freeTaxList ( 

&market_call_list->call_totals .air_tax) ; 
taxer- >f reeTaxList ( 

imarket_call_list- >call_totals . land_tax) ; 
/* airtime totals */ 

while (market_call_list->airtime_tot I- 
( struct airtime_totals *)NULL) 

{ 

temp_list_start - 

(char • ) market_call_list - >airt irae_tot - >link ; 
free ( (char *)market_call_list->airtime_tot> ; 
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market_call_liat->airtirae_tot - 

(atruct airtime_totala *) terap_liat_atart ; 
) /• while eletnenta in liat •/ 

temp_list_8tart - (char •)market_call_list->link; 
free ( (char •)market_call_liat) ; 
market_call_liat ■ 

(atruct market_call_etruct *) temp_liat_atart; 
} /* while elements in liat */ 

/•if aggregate account free all members of the •/ 

/• account */ 

do 

{ 

metncpy (prev_acct_nr , cuat_inf o_liat - >acct_nr , 10 ) ; 
temp_liat_atart - (char *) cust_info_list->link; 
free ( (char *) cuat_info_liat) ; 
cuat_info_liat - 

(atruct cuat_atruct *)terap_liat_atart ; 
} while (cuat_info_liat I- (cuat_atruct *)NULL fc& 

Imemcmp (cuat_inf o_liat->acct_nr, 
prev_acct_nr,10) ) ; 

maritime ( 0 , mark_time_arr , 2 ) ; 

meracpy (ehmaddreaa , fcaeg_perf , 
sizeof (struct aeg_perf_struct) ) ; 
} /* while cuat_info_liat */ 

if (I error) 
{ 

if (iparallel) 
{ 

printf ("BUILDING THE REPORTS \n") ; 

/* add the totals to the accounts receivable report */ 

add_ar_totals ( fcar_rpt_atruct . 

fctotal_non_call_totals , 
*total_call_totals , 
&total_roamer_totals> ; 

/* build the airtime aunnnary report */ 
build_as_rpt ( tas_rpt , &as_rpt_struct , airtime_summary , 
tod_desc_list) ; 

/* build the toll airtirae aumraary report */ 
build_tas_rpt ( &tas_rpt , atas_rpt_struct , 
toll airtime_list) ; 



/* build the billing report */ 

build_bill_rpt (&billing_rpt, &billing_rpt_struct, 

&total_non_call_totals , 

fctotal_call_totals, 

fctotal_roamer_totala ) ; 

/* build the journal summary report */ 
build_js_rpt Ujs_rpt , ijs_rpt_struct , joumal_list, 

&total_non_call_totals , &total_call_totals , 

atotal_roamer_totals , super) ; 

/* build phone salea report */ 

build_ps_rpt (fcps_rpt , *ps_rpt_struct,phone_sales_list) ; 
build_ps_rpt Ups_rpt , &ps_rpt_struct , phone_sales_list_header ) ; 
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/* build the tax register report */ 

build_tr_rpt (fctr_rpt, Atr_rpt_struct, tax_regiater) ; 

/• add commission waivers totals */ 
add_comv_totala { fccomw_rpt , fccomw_rpt_struct , 

comv_amt_totals . conw_f ed_totala , 
comw_state_totala , comw_county_totals , 
coraw loc totals) ; 



) /* if iparallel •/ 
else 

{ 

mark time (13 .mark time arr.l); 

/•••• : — : •••/ 

rpt_data_struct rds; 
rds. segment - segment; 
rds.bill_date - bill_date.date_str; 
rds. market - market; 

rds.total_call_totals - itotal_call_totals ; 

rds.total_non_call_totals - &total_non_call_tbtals ; 

rds.total_roamer_totals - &total_roamer_totals ; 

rds.airtime_summary • airtime_summary; 

rds.tod_desc_list • tod_desc_list ,* 

rds.toll_airtime_list - toll_airtime_list; 

rds. joumal_list - journal_list; 

rds. phone sales_list - phone_sales_list_header; 

rds . tax_register - tax_register ; 

rds.rev_list - rev_list; 

rds.comw_list - comw_list; 

rds . comw_amt_totals - comw_amt_totals ; 

rds . comw_f ed_totalfl - comw_f ed_totala ; 

rds.comw_state_totals - comw_state - totala ; 

rds . comw_county_totals • comw_county_totals ; 

rds . comw_loc_totals - comw_loc_totals ; 

rds.dunning_exception_list - dunning_exception_list; 

rds.zero_bill_list - xero_bill_list; 

rds . discount _plans » &plan; 

/ • — / 

error - ins_rpt_data (&rds) j 



if (error) 
{ 

error_handler < "bill^test" , UNKNOWN, 
"Report data insert had error (s).M; 
) 
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maritime (13 , mark_time_arr , 2 ) ; 

}/* Insert report stuff into database •/ 
) /* if 1 error */ 
else 

{ 

errorjiandler t "bill_teat ■ . UNKNOWN, 
•WARN: Report data will not be inserted due to previous error." 
error ■ TRUE; 
} 

} /* if build toll airtime list */ 
else 

{ 

errorjiandler ( "bill_test" , UNKNOWN, 

"building toll airtime list"); 

error - TRUE; 

} /* else get_cust_list error •/ 

} /* if fopen report files */ 
else 

{ 

errorjiandler ( "bill_tesf , F I LEO PEN, "report files") ; 
error - TRUE; 

) /* else fopen report files error */ 

) /"if get_cust_list */ 
else 

{ 

errorjiandler ( "bill_test ■ , UNKNOWN, "getting customer list" ) ; 
error - TRUE; 

} /* else get_cust_list error •/ 
} /* if get_print_cat */ 
else 

{ 

' errorjiandler ("bill_test", UNKNOWN, "getting print category list") 

error - TRUE; 

} /* else error getting print_cat info */ 

} /* if get_tod_desc_list */ 
else 

{ 

errorjiandler ( "bil latest", UNKNOWN, "getting tod description list" 
error ■ TRUE; 

} /* else get_tod_desc_list error */ 

} /* if get_date_values */ 
else 

{ 

errorjiandler ("bil latest", UNKNOWN, "getting date values"); 
error - TRUE; 

} /* else get_date_valuea error */ 
} /• if get_rate_list */ 
else 
{ 

errorjiandler (" bil l_test", UNKNOWN, "getting rate list data"); 
error • TRUE; 

) /* else get_ratejiat error */ 



} /• if get leeway amount */ 
else 

{ 
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erTorJiJuadler("bill_test", UNKNOWN, "getting leeway amount-); 
error • TRUE; 

} /• else get_rate_liat error */ 
} /* if get due date list*/ 

else 

{ 

error_handler ( "bill_test" , UNKNOWN, "getting due date list"); 
error « TRUE; 

} /* else get_due_list error */ * 

} /• if get_market •/ 
else 

{ 

errorjiandler t "bill_test" .UNKNOWN, "getting market information" ) ; 
error - TRUE; 

} /♦ else error getting market information */ 

) /• if fopen */ 
else 

{ . 

errorjiandler ( "bill_teat ■ , F I LEO PEN, argv [2] ) ; 

error - TRUE; 

} /• else fopen error */ 

} /• if log on */ 
else 

( 

printf ("\ncan* t log on to Oracle\n">; 

error - TRUE; 

} /* else - logon */ 

/* get the last bill date and update the market table •/ 
/• with the current bill date •/ 
if (bill_commit) 

{, 

print f ( "UPDATED BILL DATE\n" ) ; 

update_bill_date ( &bill_date , kof f set_display_date , fcdue_date . market > ; 

} 

if (<!parallel) && (lerror)) 
{ 

/* print the automatic reports */ 

/• print the accounts receivable report 
print_report (ar_rpt,&ar_rpt_struct) ; */ 

/* print the airtime summary report */ 
pr int_report ( as_rpt , &as_rp t_st ruct ) ; 

/* print the toll and airtime summary report */ 
print_report ( tas_rpt , &tas_rpt_struct ) ; 

/* print the billing report */ 

print_report (billing_rpt, ibilling_rpt_8tnict) ; 

/* print the jorunal summary report */ 
printer eport ( js_rpt, &js_rpt_s tract) ; 

/* print the phone sales report */ 
print_report (ps_rpt, &ps_rpt_struct) ; 

/• print the tax register report */ 
print_report (tr_rpt, &tr_rpt_struct) ; 



/• print the charge detail report */ 
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/• print , the commission waivers report •/ 
print_report ( comw_rpt , fccomw_rpt_atruct ) ; 

/ -- •/ 

/• - Report all data the was collected */ 

/* during the call discounting processing */ 

/ — •/ 

if(discountReportingUplan, market, bill_date.date_»tr) -• -1) 

{ 

error handler ("Call Discounting", DNKNOWJ, 'Could not ereate report"), - 

} 

} /* if iparallel print report* •/ 

if (error | | lbill_connit) 

{ 

error- FALSE; 

printf ( "ROLLBACK\n" ) ; 

EXEC SQL ROLLBACK WORK; 

if (sqlca.sqlcode I- NOT_SQL_ERROR) 

{ 

error - TRUE; 

error_handler t •rollback" , ORACLES ELECT, sqlca . sqlerrm. sqlerrmc) ; 
) /* if sql error ♦/ 
} /• if error •/ 

insert_dunning_activi ty ( amarket_rec , fcbill_date , *due_dat e » *dunning_atats_hdr , 

dunning_8t»ts , segment) ; 
EXEC SQL COMMIT WORK RELEASE; 
if (sqlca.sqlcode l« NOT_SQL_ERROR) 

{ 

error - TRUE; 

error_handler ("commit" ,ORACLESELECT, sqlca. sqlerrm. sqlerrmc) ; 
} /* if sql error */ 

/••• / 

ma r k_t ime ( 5 , mark_t ime_arr , 2 ) ; 

memcpy (shmaddress,tseg_per: (sizeof (struct segjperf_struct) ) ) ; 

sprint f (sxcp_file, "sxcp.rpt") ; 
sprint f (dxcp_file, "dxcp.rpt") ; 
sprint f (zero_file, "zero.rpt") ; 

if ((terror) && (Iparallel) 

&& ( (sxcp_rpt_struct.rpt_file - 

fopen(sxcp_file, "w*") ) I- NULL) 
&& ( (zero_rpt_struct .rpt_file - 

fopen(2ero_file, "w+M ) I- NULL) 
&& ( (dxcp_rpt_struct.rpt_file - 

fopen(dxcp_file, "w+")) !- NULL) ) 

( 

build_rev_rpt (rev_list , rev_rpt_struct . rpt_f ile , 
bill_date.dat e_str, market, super) ; 

/* Build dunning exception rpt */ 

if (dunning_exception_list ! ■ 

(struct collections_info *)NULL) 
build_exception_rpt (sxcp_rpt_struct .rpt_f ile, 
dxcp_rpt_struct.rpt_file. 
fcdunning_exception_list , market , 
bill_date . date_str , 
temp_bill_params> ; 
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/* Build zero activity (no bill) rpt */ 
if <zero_bill_li»t l- 

(struct zero_bil Instruct *)NULL> 
build_zero_rpt ( zero_rpt_struct . rpt_f ile , 

*zero_bill_liat , market, 
bill_date . date_str , 
tempjbill _pararas) ; 
)/* Build reports if not aborting */ 

// free airtime_summary list 

while (airtime_summary I- (struct airtime.summary.struct *)NOLL) 

( 

// free airtime_totals list 

while (airtime_summary->airtime_tot I- (struct airtime_totala *)NOLL) 

{ 

tefirp_list_start - (char *)airtime_sunraary->airtime_tot->link; 
//FCHECK (airtime_totala) ; 

free ((char * ) airtime_flummary- >airtime_tot ) ; 
airtime_sumraary->airtime_tot - 

(struct airtime_totals *) temp_list_start; 
} /* while elements in list */ 

temp_list_start - (char * ) airt ime_summary - > 1 ink ; 
//FCHECK ( airt ime_summary_st rue t) ; 

free ( (char * ) airtime_summary) ; 

airtime_summary - 

(struct airt ime_summary_st rue t *) temp_list_start; 
} /* while elements in list •/ 

// free bill detail sort code lookup table 
get_sort_info(-l, "FREE") ; 

// free memory used by tax interface and dump cache statistics 
delete taxer; 

/* close reallocated stdout */ 
if (Iparallel) 

{ 

f close <as_rpt_struct . rpt_f ile) ; 
fclose (tas_rpt_struct ,rpt_file) ; 
f close ( js_rpt_struct .rpt_f ile) ; 
fclose (ps_rpt_struct . rpt_f ile) ,* 
fclose (tr_rpt_struct . rpt_f ile) ; 
fclose (rev_rpt_struct - rpt_f ile) ; 
fclose (billing_rpt_struct.rpt._f ile) ; 

}/* if not parallel mode, close sequential report files opened */ 

// fclose (sxcp_rpt_struct .rpt_f ile) ; 
fclose (zero_rpt_stmct .rpt_f ile) ; 
// fclose (dxcp_rpt_struct.rpt_f ile ) ; 
fclose (ar_rpt_struct . rpt_f ile) ; 
fclose (coraw_rpt_struct .rpt_f ile) ; 
fclose (fpstd) ; 
fclose (fpstde) ; 
fclose (pfp) ; 
fclose (bdfp) ; 

/* for reporting exit status to parallel manager •/ 

if (error) exit(l); 
else exit (0) ; 

} /* bill test */ 
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void maritime (int remark_nr.mark_8truct •time_array, int mark.number) 
// int remark_nr; /* the remark number •/ 
// atruct mark_atruct time_array (] ; 
// int markjwimber; 

{ 

time_t curtime; /* time in seconds */ 
atruct tra *loc_time; 

static char laat_account_nr [11) • m XXXSXXSXXX m ; 

/• 

atruct timeval tp; /+ pointer to timeval atruct in ays/time. h ♦/ 
struct timezone tip; /♦ pointer to timezone atruct in aya/time.h ♦/ 

•/ 

/• aet the minutes west of Greenwich and timezone treatment */ 

/• tzp.tzjninuteaweat - 240; /♦ 4 hours west ♦/ 

tzp.tz_dsttime - 1;. /♦ daylight aavinga applies appropriately +/ 

•/ 

if (curtime - time(0)) /* ptx change */ 
/* if Ugettimeofday(fctp,atzp>) •/ 

( 

loc_time - localtime Ucurtime) ; 

/* determine the elapsed time since the last mark */ 
if (marJc_number 1) 

< 

/• printf ( "%a %s" , time_array [remark_nr] . remark, ctime ( fctp . tv_aec) ) ; 
print f ( " %a %s ■ , time_array [remark_nr] . remark , aactime ( loc_time) ) ; 

} 

if (mark_number 2) 
{ 

printf ("%a - time elasped since last mark: sees %f\n", 

time_array[remark_nr] .remark, 
( float) ( (float ) curtime - ( float ) time_array {remark_nrl . seconds) ) ; 

/• Haiti -threaded segment performance atatistica */ 
if (remark_nr I- 5) 

{ 

seg_perf . last_cust_tirae - curtime - time_array [renark_nx] . seconds ; t 

if (memcinp(seg_perf .last_account,laat_account_nr, 10) — 0) 

{ 

seg_perf . last_acct_time seg_perf .laat_cuse_time; 

} 

else 

< 

memcpy ( laat_account_nr , seg_perf . laat_account , 10 ) ; 
seg^perf .last_acct_time - seg_perf .last_cust_time; 

) 

if (seg_perf .slow_time < seg_perf .last_eust_tine) 

{ 

seg_perf .slov_tioe - seg_perf .last_cust_time; 

> 

else if (seg_perf . f ast_time > seg_parf . laat_cust_time) 

{ 

seg_perf . fast_time - seg _perf . last_cust_time ; 

seg_perf . elapaed_time seg_perf . last_cust_time ; 
} 

else 

{ 

seg_perf .total_time - curtime - time_array treraark_nr] .seconds ; 
seg_perf .running • 0; 
seg_perf . complete - 1; 

} 

/* ptx conversion */ 

} 

time array [remark_nr] .seconds • curtime; /• ptx conversion */ 
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